H o l a:
Pon la siguiente macro en un libro nuevo, con una hoja llamada "Hoja1".
Cambia en la macro esta ruta:
ruta = "C:\trabajo\varios\"
Por la ruta en la que tengas tus archivos.
La macro leerá todos los archivos y los que tengan la hoja "formula" serán consolidados en la "Hoja1"
Sub ConsolidarHojas()
'Por.Dante Amor
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set l1 = ThisWorkbook
Set h1 = l1.Sheets("Hoja1")
h1.Cells.Clear
ruta = "C:\trabajo\varios\"
arch = Dir(ruta & "*.xls*")
'
f = 4
Do While arch <> ""
Set l2 = Workbooks.Open(ruta & arch)
For Each h2 In l2.Sheets
If h2.Name = "formula" Then
u2 = h2.Range("A" & Rows.Count).End(xlUp).Row
If u2 < 4 Then u2 = 4
u1 = h1.Range("A" & Rows.Count).End(xlUp).Row + 1
If u1 < 4 Then u1 = 4
h2.Range("A4:M" & u2).Copy
h1.Range("A" & u1).PasteSpecial Paste:=xlValues
Exit For
End If
Next
l2.Close False
arch = Dir()
Loop
Application.ScreenUpdating = True
MsgBox "Proceso Terminado"
End Sub
'