将范围从一个工作簿复制到另一工作

Question

我想将第12行的A和I列向下从工作簿Test.xslx移至第一个空行 A12至I12复制到 工作簿LoadNew.xslx显示的excel是我从中复制的Test.xslx

  Dim WB1 As Workbook
    Dim WB2 As Workbook
    Dim LastRow As Long
    Dim myPath As String
    Dim folderPath As String
    Dim wbSource As Workbook
    Dim sFile As String
    
    folderPath = Application.ActiveWorkbook.Path
    myPath = Application.ActiveWorkbook.FullName
    sFile = ActiveWorkbook.name

   Workbooks.Open (folderPath & "\Test.xlsx")

   Set DestSht = ThisWorkbook.Worksheets("Sheet1")
   ThisWorkbook.Activate

   Set WB = Workbooks.Open(aFile)
   Set SourceSht = WB.Worksheets("QC Test")
 
   Sheets("QC Test").Select
  
   LastRow = SourceSht.Cells(SourceSht.Rows.Count, "A").End(xlUp).Row
 
    SourceSht.Range("A120:I" & LastRow).Copy
    DestSht.Range("A" & Rows.Count).End(xlUp).Offset(0, 0).PasteSpecial xlPasteValues
    WB.Close False 'No need to save any changes