vbs Find last row and paste

[madtown]

Hi,
I am fairly new to script writing and could use some assistance.
I am trying to write a vbs script that will populate daily informatio
to one sheet and then append that same data to the next open row on
second sheet. Is there a way with vbs to find that next open row.

Thanks

 

[Tom Ogilvy]

with worksheets(2)
set rng = .Cells(rows.count,1).End(xlup)(2)
End with

Selection.Copy Destination:=rng

 

[Ron de Bruin]

Hi madtown

Try this example
http://www.rondebruin.nl/copy1.htm

Post back if you need help