将行移至下一个选项卡

Question

我一直试图将“已完成”的项目从一个标签移动到下一个标签。我成功地让他们搬了过来。但是，它们会进入我的第2行（在我的标题下方）并删除其中的内容。如何将其移动并将其添加到已存在的内容中，而不是删除行并取代它？这是我正在使用的代码：

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Column = 8 Then
  If Target = "Yes" Then
    Application.EnableEvents = False
      nxtRow = Sheets("ClosedProjects").Range("I" & Rows.Count).End(xlUp).Row + 1
       Target.EntireRow.Copy _
        Destination:=Sheets("ClosedProjects").Range("A" & nxtRow)
       Target.EntireRow.Delete
  End If
 End If
 Application.EnableEvents = True
End Sub