I'm having an issue with creating a macro... I received data that looks like this
1
2
3
4
1
2
3
4
1
2
3
4
There is a lot of data.
I want to the the series of data in the columns to spread to the rows like below.
1234
1234
1234
But when i create the macro, it will copy and paste everything into the first line. what can I do? Here is what my Macro looks like:

Sub Macro1()
'
' Macro1 Macro
' Macro recorded 12/10/2009 by ******
'
' Keyboard Shortcut: Ctrl+q
'
Range("A2").Select
Selection.Cut
ActiveSheet.Paste
Range("A3").Select
Selection.Cut
Range("B2").Select
ActiveSheet.Paste
Range("A4").Select
Selection.Cut
Range("C2").Select
ActiveSheet.Paste
Range("A5").Select
Selection.Cut
Range("D2").Select
ActiveSheet.Paste
Range("A6").Select
Selection.Cut
Range("E2").Select
ActiveSheet.Paste
Range("A7").Select
Selection.Cut
Range("F2").Select
ActiveSheet.Paste
Range("A8").Select
Selection.Cut
Range("G2").Select
ActiveSheet.Paste
Rows("3:8").Select
Selection.Delete Shift:=xlUp
Range("A3").Select
End Sub

Thanks in advance for your help.