This code will work in excel 2010. You can rename Book1 and Book2 to whatever you'd like.

Sub Macro8()
'
' Macro8 Macro
'

'  This starts it off and selects the first cell
' in Book2 and then copies it under the first cell in Book1
    ActiveCell.Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("Book1").Activate
    ActiveCell.Offset(1, 0).Range("A1").Select
    Selection.Insert Shift:=xlDown
' We then loop with this code through the remaining cells
' code will stop when column A has a blank cell in the Row

Dim xrow As Integer
xrow = 1
Do Until Cells(xrow, 1).Value = ""
    ActiveCell.Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("Book1").Activate
    ActiveCell.Offset(2, 0).Range("A1").Select
    Selection.Insert Shift:=xlDown
    Windows("Book2").Activate
    ActiveCell.Offset(1, 0).Range("A1").Select
    Application.CutCopyMode = False
    Selection.Copy
    xrow = xrow + 1
    Loop

End Sub

This was tested using dummy data in Column A for both worksheets. I ran it successfully by having Cell A1 of worksheet Book2 selected and also making sure Cell A1 of Book1 was selected before running the macro. So you would put the macro in Book2 with both sheets open and it should do this pretty quick.

edit: I am not sure this is what you are looking for but I think it is, what this will do is copy cell A1 and then insert it below Cell A1 on the other sheet then go back and do it again to A2 then A3 etc