Pasting column after end of spreadsheet.

P

presence76

I am working on a problem where I have 2 spreadsheets and I am takin
the column from one and pasting it to the bottom of another. This i
just the first column I will be doing this for. I have three others o
the same set of sheets. My code is as follows:

Sheets("pifinal").Select
Columns("A:A").Copy
Sheets("Final balancing").Select
[A65536].End(xlUp).Offset(1).Select

ActiveSheet.Paste

When I hit the ActiveSheet.Paste line I get :
Run time error '1004'
Info cannot be pasted because copy area and paste area are not the sam
size.

Any help would be greatly appreciated. Thanks
 
Top