Paste after last row of data

[sugargenius]

I have range copied and I need to paste it starting on the next row after the last row of data based on the contents of column A

Range("A1").Copy
' this doesn't work but hopefully it illustrates what I'm trying to do
Worksheets("Data").Range("A1").End(xlDown).Offset(1).Row.Paste

Is that possible with one line?

 

[JackDanIce]

Try:

Worksheets("Data").Range("A1").Copy Worksheets("Data").Range("A" & Range("A" & Rows.Count).End(xlUp).Row + 1)