Copy specific columns from all the files in the folder and combine those columns in sheet

Dear Gurus,
I got the below code that it combine sheets from all the files in the folder copy to another workbook, the code works well. But i want to copy specific columns from all the files, I tried but i cannot able to get. Can you help me here please.
I think there is no need for attachment. Can you asssume that there are 25+ files in a folder other folder path and result should come in the sheet1 in active workbook. If you still want sample files then i can share. thanks.

Dear Gurus,
I got the below code that it combine sheets from all the files in the folder copy to another workbook, the code works well. But i want to copy specific columns from all the files, I tried but i cannot able to get. Can you help me here please.
I think there is no need for attachment.

Sub MergefilesinaSheet()

Dim myactiveworkbook As Workbook
Dim mergeObj As Object, dirObj As Object, filesObj As Object, everyObj As Object
Application.ScreenUpdating = False


Set mergeObj = CreateObject("Scripting.FileSystemObject")
 
'change folder path of excel files here
Set dirObj = mergeObj.Getfolder("C:\Desktop\Merge files\")
Set filesObj = dirObj.Files
For Each everyObj In filesObj
Set myactiveworkbook = Workbooks.Open(everyObj)


Range("A1:AA" & Range("A3000").End(xlUp).Row).Copy
ThisWorkbook.Worksheets("All Columns").Activate
 
'Do not change the following column. It's not the same column as above
Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
myactiveworkbook.Close
CopyColumnsByName

Next
Cells.WrapText = False
Cells(1, 1).EntireRow.Delete

End Sub