VBA / Copy to First Open Row in a Column?

[Cerestes]

Is there a more clean way to copy a row of data to the first empty row on a new sheet?

I'm currently using something like:

Sheets("Sheet1").Range("=OFFSET(Sheet1!A1,0,0,COUNTA(Sheet1!A1:A65536),1)")

 

[agihcam]

something like;

sheets("Sheet1").range("a"&rows.count).end(xlup).offset(1) = "yourvalue"