Sub www()
    Dim fso As Object, file As Object
    Dim wb As Workbook, w As Workbook, ws As Worksheet, sh As Worksheet
    Application.EnableEvents = 0
    Application.ScreenUpdating = 0
    Set w = ThisWorkbook
    For Each sh In w.Worksheets
        sh.UsedRange.Offset(1).Clear
    Next
    Set fso = CreateObject("scripting.filesystemobject").getfolder(ThisWorkbook.Path)
    On Error Resume Next
    For Each file In fso.Files
        If InStr(1, file.Name, w.Name) Then
        Else
            Set wb = Workbooks.Open(file.Path)
            For Each ws In wb.Worksheets
                Set sh = w.Sheets(ws.Name)
                If Not sh Is Nothing Then
                    ws.UsedRange.Offset(1).Copy sh.Cells(Rows.Count, 1).End(xlUp).Offset(1)
                Else
                    ws.Copy After:=w.Sheets(w.Sheets.Count)
                End If
                Set sh = Nothing
            Next
            wb.Close 0
            Set wb = Nothing
        End If
    Next
     Set fso = Nothing
     Application.ScreenUpdating = -1
     Application.EnableEvents = -1
End Sub