Try this:
Sub Macro1()
N=14
For i=16 to 116 step 2
Cells(4,i).resize(4,2).cut cells(N,1)
N=N+4
Next
End Sub

HTH
Bob Umlas
Excel MVP

"Confusicous" wrote in message
...
Sub Macro1()
'
' Macro1 Macro
'

'
Range("P4:Q7").Select
Selection.Cut
Range("A14").Select
ActiveSheet.Paste
Range("R4:S7").Select
Selection.Cut
Range("A18").Select
ActiveSheet.Paste
End Sub

Here is a macro I am working on and I need it to continue for 98 more
times
but I can't figure out the loop. Any help is appreciated. Thanks