Copy every fifth row from one sheet to another

[evanft]

I just need to either copy every fifth row from one sheet to another within the same workbook. I can't seem to find anything on how to do this. Can anyone help?

 

[VoG]

Try

Sub copy5()
Dim LR As Long, i As Long
With Sheets("Sheet1")
    LR = .Range("A" & Rows.Count).End(xlUp).Row
    For i = 1 To LR Step 5
        .Rows(i).copy Destination:=Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Offset(1)
    Next i
End With
End Sub