Option Explicit
Sub test()
Dim i As Long
For i = 1 To Range("A65536").End(xlUp).Row Step 5
Cells(i, 1).Resize(, 4).Copy Cells(i + 1, 1).Resize(, 4)
Next i
End Sub
Option Explicit
Sub test()
Dim i As Long
For i = Range("A65536").End(xlUp).Row To 1 Step -5
Cells(i, 1).Resize(, 4).Copy Cells(i + 1, 1).Resize(, 4)
If i > 5 Then Cells(i - 3, 1).Resize(3).EntireRow.Delete
Next i
End Sub
Sub test3()
Dim i As Long
For i = Range("A65536").End(xlUp).Row To 1 Step -2
If i > 3 Then Rows(i - 1).Resize(3).Insert
Next i
End Sub