Paste in next empty line

Perhaps using Copy / Paste route (formatting etc...)

With Sheets("Sheet1")
    .Range(.Cells(1,"A"),.Cells(.Rows.Count,"A").End(xlUp)).Copy
    With Sheets("Sheet2")
        .Cells(Rows.Count,"A").End(xlUp).Offset(1).PasteSpecial Transpose:=True
    End With
End With
Application.CutCopyMode = False