EXCEL MACRO：将值粘贴到现有列的末尾

Question

我试图将几张（相同的工作簿）合并为一张 宏。为了做到这一点，我必须逐一复制工作表中的数据（我已经这样做了）并将复制的数据粘贴到现有列的末尾。我有什么想法可以做到这一点？列在所有工作表中具有相同的标题，例如工作表1，工作表2和工作表3中的A列具有标题＆＃39;状态＆＃39;等等。

请参阅下面的代码。我使用过滤器缩小要复制的值，创建新工作表并粘贴它。但是，我不知道如何在此数据的末尾粘贴下一个数据。

ActiveSheet.Range("$A:$D").AutoFilter Field:=1, Criteria1:= _
    "cpp"
Columns("A:D").Select
Selection.Copy
Set NewSheet = Sheets.Add
NewSheet.Name = "Reporting"
ActiveSheet.Paste
Sheets("Sheet1").Select