在单独的工作表（Excel，VBA）上将数据从一个表移动到另一个表

Question

尝试根据列的状态将日期从一个表复制到另一个表。虽然我可以让它移动我不能为我的生活让它实际上进入第2页的表。

Private Sub Worksheet_Change(ByVal Target As Range)
'Check if column is corret
 If Target.Column = 6 Then
  'Check status of column
  If Target = "status"Then
    Application.EnableEvents = False
      nxtRow = Sheets("First").Range("A" & Rows.Count).End(xlUp).Row + 1
       Target.EntireRow.Copy _
        Destination:=Sheets("First").Range("A" & nxtRow)
       Target.EntireRow.Delete
  End If
 End If
 Application.EnableEvents = True
End Sub

这一切都是在网上找到的，任何修改它的尝试都会将其移到我设置的表格中。我在excel中编程相当新，所以任何建议都会受到赞赏。