Copy Paste Rows from one sheet to another
Posted on 2013-05-30
I have the code below that works, but I need for it to paste row from Sheet 16 to Sheet 19 below the last used row. And to loop through all the records on Sheet16 to end of last row to insert all onto Sheet19.
Thanks in advance.
Dim nextrow As Long
nextrow = Sheet16.Cells(Rows.Count, "A").End(xlUp).Row + 1
Application.ScreenUpdating = False
.Range("A2").Copy Sheet19.Range("A" & nextrow)
Application.CutCopyMode = False
Application.ScreenUpdating = True