The simplest way is:
Dim srcWsh as Worksheet
Dim dstWsh as Worksheet
Dim i as Integer
srcWsh = ThisWorkbook.Worksheets("Sheet")
dstWsh = ThisWorkbook.Worksheets("Sheet2")
i = 2
j = 5
Do while
srcwsh.Range("A" & i & ":D" & i).Copy dstWsh.Range("A" & j)
i = i + 1
j = j + 1
Loop
If you whould like to set condition, you need to add
if ... then
statement inside a loop.