Excel VBA：如何将记录从一个工作表追加到另一工作表的最后一行

Question

我有代码，它有些起作用。它确实从工作簿数组中的工作簿中复制工作表，然后将数据正确粘贴到主工作簿/工作表中。当它将另一张纸复制并粘贴到该主工作簿/工作表时，它会找到最后一行并将其正确粘贴。但是，当转到数组中的下一个工作簿和工作表时，它会复制工作表，但不会从最后一个空行开始粘贴它。是的，我知道这很简单，但没有到达目的地。

If IsArray(FileArray) Then
   For i = LBound(FileArray) To UBound(FileArray)
      Set myBook = Workbooks.Open(FileArray(i))
      Sheets("Sheet1").Select
      Rows("1:4").Select
      Selection.Delete Shift:=xlUp
      For Each mySheet In myBook.Worksheets         
        mySheet.Range("A1").CurrentRegion.Copy
        Basebook.Worksheets(1).Cells(Rows.Count, 1).End(xlUp).Offset(1, 
        0).PasteSpecial Paste:=xlPasteValues
      Next mySheet
      myBook.Close
   Next i