paste values to last row

P

patojo

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

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
 
Top