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