Building a For Next loop procedure

I'm a little stuck here. Not sure how to build in the second loop for the destination cells.

I am cutting from column G:N but four at a time and then pasting 4 cells on top of each other starting at A15:D15. The destination range would be row 15, 16, 17, 18 etc., but I'm not sure how to reference the loop. Any thoughts?

Sub Macro2()
Dim LR As Long, i As Long
LR = Range("G" & Rows.Count).End(xlUp).Row
    For i = 2 To LR
        Range("G" & i & ":" & "J" & i).Cut Range("A15:D15")
        Range("K" & i & ":" & "N" & i).Cut Range("A16:D16")
    Next i
End Sub

Try this

Sub Macro2()
Dim LR As Long, i As Long, j As Long
LR = Range("G" & Rows.Count).End(xlUp).Row
j = 15
    For i = 2 To LR
        Range("G" & i & ":" & "J" & i).Cut Range("A" & j & ":D" & j)
        Range("K" & i & ":" & "N" & i).Cut Range ("A" & j + 1 & ":D" & j + 1)
        j = j + 2
    Next i
End Sub

Perfect Thanks...