paste values to last row

  • Thread starter Thread starter patojo
  • Start date Start date
P

patojo

Does anyone have a VB script that will copy and paste values from one
row to the last row on a worksheet?
 
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
 
Back
Top