Copy to next available row on another sheet

[MFish]

Hi,

Here's my code..

Range(ActiveCell, ActiveCell.Offset(0, 2000)).Copy Destination:=Worksheets("Deleted Runs") _
    .Range("D2")

I'm trying to get the row of information to copy to the very NEXT row down on the other WS, "Deleted Runs". I have a code around this that take the offset of information and deletes it, and moves the row of data underneath up, xlShiftUp.

 

[kweaver]

You'll probably need to know what the last row is in the Deleted Runs sheet using something like:

LR = Sheets("Deleted Runs").Cells(Rows.Count,"A").End(xlUp).Row

Then, make the destination range: Range("D" & LR+1)