Hi Steve

This should do the trick. I assume you are in Sheet2 when this is
run.

Take care

Marcus

Sub Down4Rows()

Dim i As Long, j As Long, lw As Long
'Run in sheet2
Application.ScreenUpdating = False
'Last row of sheet 1
lw = Sheets("sheet1").Range("A" & Rows.Count).End(xlUp).Row
j = 4 ' the 4th row in sheet1
For i = 1 To lw
Range("A" & i).Value = Sheets("Sheet1").Range("B" & j).Value
Range("B" & i).Value = Sheets("Sheet1").Range("C" & j).Value
Range("C" & i).Value = Sheets("Sheet1").Range("D" & j).Value
'etc etc
j = j + 4
Next i
Application.ScreenUpdating = True

End Sub