you want to copy to the first empty cell (from the bottom) in column A which is done like this:
Sheets("Sheet2").Cells(Rows.Count,1).End(XlUp).Offset(1,0).PasteSpecial