Extraer ceros Col B,C,D. Con Valor celda Col A, copiar Cols E,F,G.

Extraer todos los ceros de las Columna B con Valor de celda Columna A, copiarlos en Columna E.

Extraer todos los ceros de las Columna C con Valor de celda Columna A, copiarlos en Columna F.

Extraer todos los ceros de las Columna D con Valor de celda Columna A, copiarlos en Columna G.

Tengo esta macro, pero no puedo hacer el loop para copiarlas diferentes columnas de datos encontrados, en diferentes columnas ya indicados. Tengo este código macro:

Sub movenumbers()
    nextRow = 2
    nextCol = 2
    ' Prevents screen refreshing.
    Application.ScreenUpdating = False
    Worksheets("Sheet1").Range("E2:G200").ClearContents
    For x = 1 To 10
        For y = 5 To 7
                If Sheets(1).Cells(x, nextCol) = 0 Then
                    ' copiar o cambiar de hoja = pero extrayendo el valor hoja datos
                    Sheets(1).Cells(nextRow, 5).Value = Sheets(1).Cells(x, 1).Value
                    nextRow = nextRow + 1
                End If
        Next y
'        nextCol = nextCol + 1
    Next x
    ' Enables screen refreshing.
    Application.ScreenUpdating = True
End Sub

@