MACRO para abrir 4 archivos de excel, extraer información y pegarla en 1 solo archivo

Ok aras lo siguiente, aras un archivo en excel y le pondrás esta macro luego el archivo lo guardaras dentro la carpeta donde están los archivos, al inicio te pregunta que que tiop de archivo quieres que abra le pondes la terminación del archivo excel siempre son .XLS O .XLSM SI ES MACRO

Sub libros()
'Lee archivos del directorio y Copia la hoja 1
'Por.Dam
Application.ScreenUpdating = False
ruta = ThisWorkbook.Path
ChDir ruta
archi = Dir("*.xlsm*")
Set h1 = ThisWorkbook.Sheets("Sheet1")
On Error Resume Next
Do While archi <> ""
If InStr(1, archi, "nuevo") = 0 Then
Workbooks.Open archi
If Err.Number = 0 Then
Sheets(1).Select
Range(Range("A1"), ActiveCell.SpecialCells(xlLastCell)).Copy
Windows("nuevo").Activate
Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
End If
Application.DisplayAlerts = False
Workbooks(archi).Close
Application.DisplayAlerts = True
End If
archi = Dir()
Loop
End Sub

El nombre del libro en donde pondrás esta macro se llamada (nuevo)