Try the below..

Sub Macro1()
Dim lngCol As Long, lngRow As Long, intTemp As Integer
lngCol = 14
lngRow = 10
For intTemp = 1 To 80
lngCol = lngCol + 2
lngRow = lngRow + 4
Range(Cells(4, lngCol), Cells(7, lngCol + 1)).Cut Range("A" & lngRow)
Next

End Sub

If this post helps click Yes
---------------
Jacob Skaria


"Confusicous" wrote:

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