paste values to last row

[patojo]

Does anyone have a VB script that will copy and paste values from one
row to the last row on a worksheet?

 

[Dave Peterson]

I used column A to find the last row of the worksheet and I pasted under that
last row.

Dim NextRow as long
dim RowToCopy as range

set rowtocopy = activecell.entirerow

with worksheets("somesheetnameHere")
Nextrow = .cells(.rows.count,"A").end(xlup).row + 1
rowtocopy.copy _
destination:=.cells(nextrow,"A")
end with

 

[Ron de Bruin]

See also this page if it is possible that the cell in A is empty
http://www.rondebruin.nl/copy1.htm