Basically i have all my contact information in a spread sheet, in one gigantically long row of like 2000 cells, and what i want to do it write a macro that will take the 7 sections that each contanct information is long, and past it below the other one in the A column, so instead of one gigantically long line i have a long row or the contacts each lined up one after the other, i understand this probably needs a variable to plus one to make sure its pasted in the row below each time, and set it in a loop, but how the hell do i do this with the stupid letter in the cell name and everything, so far i have this, which is jsut the reorded macro info, but i need it not to do it twice like i have it, but like a thousand times so.... heres the code:

Code:
Sub Macro5()
'
' Macro5 Macro
' Macro recorded 23/05/2005 by cool
'
' Keyboard Shortcut: Ctrl+q

    Range("H1:N1").Select
    Selection.Copy
    Range("A2").Select
    ActiveSheet.Paste
    Range("H1:N1").Select
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlToLeft
    Range("H1:N1").Select
    Selection.Copy
    Range("A3").Select
    ActiveSheet.Paste
    Range("H1:N1").Select
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlToLeft
End Sub
Please help me work this out!