pasting selection to end of workbook?

[joshashcraft]

Here is what i am attempting to do. i have a range of
cells in a column that i am copying, switching to a
different open workbook, and pasting at the end of the
column.
ex. cells a5:a50 are getting copied and pasted to a
different workbook at the end of column b
Any help would be much appreciated!
thanks in advance,
Josh

 

[Bob Tulk]

Assuming the range you want to copy is already selected...

Selection.Copy
Sheets("Sheet2").Select 'Or whatever sheet name you have
Range("B1").select 'Or the first cell of the column you
want to find the end of.

'This takes us to the last cell of the column
Selection.End(xlDown).Select

'Need to go down one more cell so we don't overwrite the
last cell of data
ActiveCell.Offset(1, 0).Range("A1").Select

'Paste what we copied
ActiveSheet.Paste