从一个工作簿中复制数据，然后粘贴到另一工作簿中的下一个空行

Question

我有多个月度文件，从1月到12月，每个月都有相同的模板，包含数据。我希望在每个月添加一个宏，该宏会将数据传输到包含所有信息的整体文件中。我希望每个月的数据都将粘贴到整个文件中，添加到以前的数据中而不删除以前的数据。传输的数据应从上一个数据之后的下一个空行开始。

每个月的数据量都不同，因此我从第一行复制到了最后一行，这可能有所不同。然后，我打开了要复制到的文件。然后，我相信了，然后将其粘贴到下一个空行中。

Private Sub()
    Dim Lastrow As Long
    Lastrow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
    Range("A9:EM" & Lastrow).Copy

    Workbooks.Open Filename:="S:\US Div\FileName.xlsx"
    Worksheets("Premium Reporting").Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues, operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False

    ActiveWorkbook.Close SaveChanges:=True
    ActiveSheet.Range("G2").Value = "Exported"
End Sub()

数据已替换了之前的数据，但未添加到其中。