Hi guys,

I'm new to the world of VBA and I have a problem that I would really appreciate help with. For the code below I wish to follow the same pattern to reaching cell A4984. Can someone help me do this using a loop function.

Cheers

Sub Macro2()
'
' Macro2 Macro
'

'
Range("A1:A8").Select
Selection.Copy
Range("B1").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Range("A9:A16").Select
Application.CutCopyMode = False
Selection.Copy
Range("B2").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
End Sub