Code to Copy Data to Every nth Row

Hello to all of you,


I have some code that I cannot get to work. Maybe the problem lies with LR.

On Sheet7 of my WorkBook, I have Data in Cells AB1 and AC1 which I want to copy to Cell C11 and D11 respectively, and then down every 4th Row but not further down than Row719.

Sub test()
Dim LR As Long, i As Long
'Set LR = Sheet7.Range("C721")
LR = Range("C721", Rows.Count).End(xlUp).Row
Range("AB1:AC1").Copy
For i = 4 To LR Step 4
    Range("C11" & i).PasteSpecial Paste:=xlPasteValues

Next i
End Sub

Can someone please help me out here?

Thank you!