Скопируйте заголовки вставки ТОЛЬКО из первой книги

Question

Мне интересно, может ли кто-нибудь помочь мне с кодом.Я пытаюсь скопировать и вставить заголовки только первой рабочей книги (которые имеют несколько листов, все одинаковые заголовки / формат во всех рабочих книгах, но разные данные).Рабочие книги находятся в цикле.Я не могу понять, как скопировать заголовки только из первой книги в цикле.Если кто-нибудь может мне помочь, это было бы здорово!Очень признателен!

У меня здесь следующий код:

Sub simpleXLSMerger()
'Just change directory path and run code. Make sure workbook is not in the same direct as files to be merge
'Remember to add the same number of worksheets same as merge files
'If code does not work, or paste blanks into worksheet, try inserting code into a new module
Dim bookList As Workbook
Dim mergeObj As Object, dirObj As Object, filesObj As Object, everyObj As Object
Dim i As Integer
Application.ScreenUpdating = False
Set mergeObj = CreateObject("Scripting.FileSystemObject")

DirectoryPath = InputBox("Directory Path")

For i = 1 To Sheets.Count
    'change folder path of excel files here
    Set dirObj = mergeObj.Getfolder(DirectoryPath)
    Set filesObj = dirObj.Files
    For Each everyObj In filesObj
    Set bookList = Workbooks.Open(everyObj)
    'Change number to the source sheet number you want to import (starts with 1)
    Worksheets(i).Activate

    Range("A2", Range("A1").End(xlDown).End(xlToRight)).Copy
    'Change number to the destination sheet number you want to import to (starts with 1)
    ThisWorkbook.Worksheets(i).Activate
    Application.ScreenUpdating = True

    'Do not change the following column. It's not the same column as above
    Range("A" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
    bookList.Close SaveChanges:=False
    Next
Next i

MsgBox "DONE! =)"

End Sub