Merge 3 excel file in one file

[atuljadhavnetafim]

Dear Expert

i have 3 file A.xls, B.xls and C.xls in E drive,
now all file have more than 100000 row, i just want to combine all three file in one file.
for this i am using below code but it not working and show me error at Filename = Dir(FolderPath & "*.xls*")

Sub ConslidateWorkbooks()
'Created by Sumit Bansal from https://trumpexcel.com
Dim FolderPath As String
Dim Filename As String
Dim Sheet As Worksheet
Application.ScreenUpdating = False
FolderPath = Environ("userprofile") & "\E:\"
Filename = Dir(FolderPath & "*.xls*")
Do While Filename <> ""
 Workbooks.Open Filename:=FolderPath & Filename, ReadOnly:=True
 For Each Sheet In ActiveWorkbook.Sheets
 Sheet.Copy After:=ThisWorkbook.Sheets(1)
 Next Sheet
 Workbooks(Filename).Close
 Filename = Dir()
Loop
Application.ScreenUpdating = True
End Sub

please correct code if any

Thanks

 

[alansidman]

This can be easily and quickly accomplished using Power Query

 

[atuljadhavnetafim]

This can be easily and quickly accomplished using Power Query

My row data extracted from SAP and it has some blank row and column and all three file has same column, so once this tree file combine then I will run another macro to clear the garbage

 

[alansidman]

Here is a MrE tutorial on how to accomplish

https://www.youtube.com/watch?reload=9&v=a7E29H5ZUmE