将所有格式相同的Excel文件的目录复制到新格式的电子表格中

Question

我正在寻找以下问题的帮助。

当前，我有多个目录，这些目录具有多个.xlsx文件，所有文件都具有相同的格式，这些目录中的数据我想放入新的工作簿中以创建表。

但是，我需要重新组织和转置大多数数据，以便更轻松地将其放入列中。

Data

Home

这是我当前的代码，因为到目前为止我只是获得B3：B8信息。我的最终目标也是移到A-L或B15：M15的AVG上。

Sub DataTransport()

    Dim Data As String
    Dim Wkbklocation As Workbook
    Dim lrow As Long
    Dim erow As Long
    Dim Home As Worksheet

    Set Home = ThisWorkbook.Sheets("HomeData")

    erow = Home.Cells(Home.Rows.Count, 10).End(xlUp).Row

    SetCurrentDirectory "path to directory"

    Data = Application.GetOpenFilename("Microsoft Excel Worksheet (*.xlsx),*xlsx", , , , "True")

    Set Wkbklocation = Workbooks.Open(Data)

    Wkbklocation.Sheets(1).Range("B3:B8").Copy

    Home.Range("A2:" & erow).InsertSpecee Paste:=xlPasteValues, Transpose:=True

End Sub

我无法解决将单元格从AVG复制到最终格式的问题，也无法使其循环执行多个文件。如果文件在复制完信息后可以关闭，那将是我希望此宏完成的事情。