Excel - UNIFICAR VARIOS LIBROS EXCEL EN UNO SOLO

Sub FusionarLibros()

On Error GoTo Salir

    Carpeta = "D:\Todo"

    Archivo = Dir(Carpeta & "\*.xls*")

    Application.ScreenUpdating = False

    Do Until Archivo = ""

       Workbooks.Open Carpeta & "\" & Archivo, , 1

       For Each Hoja In ActiveWorkbook.Sheets

           Hoja.Copy After:=ThisWorkbook.Sheets("Hoja1")

       Next

       Workbooks(Archivo).Close

       Archivo = Dir()

    Loop

Salir:

    Application.ScreenUpdating = True

    If Err.Number <> 0 Then _

       MsgBox "Error al ejecutar la fusion, puede no ser consistente los datos...", vbCritical, "Advertencia"

End Sub