Copy a certain range and paste to sheet2, next avail row.

[MFish]

Hi, I'm lost on how to just simply copy a row from one sheet to another. I need it to copy to the other sheet that has an available empty row. Once that has been executed.. It will simply just delete the information on sheet1 after copying to sheet2. So far I have...

Dim lastrow As Long

lastrow = Worksheets("Deleted Runs").Range("D2").End(xlDown).row + 1

' copy the range of info and paste onto other sheet
Range(ActiveCell, ActiveCell.Offset(0, 2000)).Copy _
    Destination:=Worksheets("Deleted Runs").Range("D" & lastrow)

'now delete the information
Range(ActiveCell, ActiveCell.Offset(0, 2000)).Delete xlShiftUp

There is a run-time error, 1004, and highlights the Range(ActiveCell, ActiveCell.Offset(0, 2000)).Copy Destination:=Worksheets("Deleted Runs").Range("D" & lastrow) part.

 

[MFish]

Figured it out.