Copy and paste row into next sheet, into next empty row??

Hi All,

I've got this far, but when the row is cut from the first sheet and pasted into the next it just over rights the last row pasted there instead of pasting the next row down, any help resolving this would be MUCH appreciated. Thanks. Adam.

Private Sub Worksheet_Change(ByVal Target As Range)

 Application.EnableEvents = False
 If Target.Column = 10 And Target.Cells.Count = 1 Then
 Target.EntireRow.Copy Destination:=Sheets(2).Cells(Rows.Count, 1).End(xlUp).Offset(2, 0)
 lastrow = Range("B65536").End(xlUp).Row + 1
 Cells(lastrow, 2).Select
 
 Target.EntireRow.Delete shift:=xlUp
 Application.EnableEvents = True
 Exit Sub
End If

 If Not Intersect(Target, Range("F:F")) Is Nothing Then
 Target.Offset(0, 1) = Date
 End If
 Application.EnableEvents = True
End Sub