Uso de macro para copiar celdas

Estoy tratando de usar este macro para copiar un rango de celdas de diferentes libros y recopilar en uno solo, pero al ejecutarlo no me pega nada, ¿me puedes ayudar?

Sub libros()
'Lee archivos del directorio y Copia la hoja 1
'Por.Dam
Application.ScreenUpdating = False
ruta = ThisWorkbook.Path
ChDir ruta
archi = Dir("*.xlsx*")
Set h1 = ThisWorkbook.Sheets("hoja1")
On Error Resume Next
Do While archi <> ""
If InStr(1, archi, "nuevo") = 0 Then
Workbooks.Open archi
If Err.Number = 0 Then
Sheets(2).Select
Range(Range("E233:I26"), ActiveCell.SpecialCells(xlLastCell)).Copy _
h1.Range("E" & h1.Range("E23:I26").SpecialCells(xlLastCell).Row + 1)
Else
Err.Number = 0
End If
Application.DisplayAlerts = False
Workbooks(archi).Close
Application.DisplayAlerts = True
End If
archi = Dir()
Loop
End Sub