Excel macro para copiar celdas si cumple una condición e intercambiar el orden de las celdas copiadas.

Cuento con un rango de celdas en la hoja 2 en la que si se encuentra un campo lleno tiene un valor en el campio binario de 1 caso contrario cuenta con un valor de 0, como se muestra a continuación:

Quisiera poder copiar por medio de un macro en la hoja 3 los datos que cumplan la condición de tener el número 1 en el campo binario, adicionalmente ya copiados en la hoja 3 el segundo macro me permite ordenarlos según convecina en donde si apretó la flecha de abajo la celda debería bajar y la celda que se encuentra abajo subir, el macro permite por medio de las flechas ordenar las filas pegadas en la hoja 3. En el ejemplo de a continuación si apretó la flecha de abajo de A1 el valor de B2 sube y el de A1 baja a la intentar de B2.