Combine multiple workbooks into 1 workbook

Macro to loop a folder and open all the excel files copying the data and combining them into one workbook.  Good if you need to aggregate multiple excel files into one.

http://www.vba-market.com/CombineWorkbooks_inFolder.xlsm

Sub CombineWorkbooks_inFolder()
Dim wb1, wb As Workbook
Dim endRow As Long

Workbooks.Add
Set wb = ActiveWorkbook

MsgBox ("Select folder with files to combine")
With Application.FileDialog(msoFileDialogFolderPicker)
.AllowMultiSelect = False
.Show
On Error Resume Next
strpath = .SelectedItems(1)
Err.Clear
On Error GoTo 0
End With
If Right(strpath, 1) <> "\" Then strpath = strpath + "\"
ChDir strpath
strextend = Dir("*.xls*")

Do While strextend <> ""
    Set wb1 = Workbooks.Open(strpath & strextend)
    wb1.Activate
    ActiveSheet.UsedRange.Copy
    wb.Activate
    endRow = ActiveSheet.UsedRange.Rows.Count + 1
    If endRow > 2 Then
        Cells(endRow + 1, 1).Select
        ActiveSheet.Paste
        ThisWorkbook.Saved = False
        Application.DisplayAlerts = False
        wb1.Close
    Else
        Cells(1, 1).Select
        wb1.Close ActiveSheet.Paste
        ThisWorkbook.Saved = False
        Application.DisplayAlerts = False
    End If
   
strextend = Dir
Loop
Application.DisplayAlerts = True
End Sub