como unir varios listado de excel en uno solo

hola, Valterro !

Cada mes tengo que convertir un libro de excel con unas 70 hojas (listados) en un unico listado.
los listados de origen son similares, aunque algunos tienen algun campo diferente
suelen tener unos 40 campos y nunca mas de 25 registros.
alguien me puede echar una mano?

[creo que] con los 'pocos detalles' que aportas... las propuestas que recibas... [cualquiera]...
o... resulta ser 'la solucion'... :)
o... pudiera causarte 'serios destrozos'... :-(
[de cualquier forma... y] cualquiera sera un 'buen?' comienzo :))

prueba ->con una copia de tu archivo 'original'<- las siguientes lineas...
si cualquier duda [o informacion adicional]... comentas?
saludos,
hector.
en un modulo de codigo 'normal' ==Sub Concentrar_Hojas()
Application.ScreenUpdating = False
Dim Sig As Byte, Eliminar As Boolean
If MsgBox("Deseas eliminar las hojas ""concentradas"" al final del proceso?", _
vbQuestion + vbYesNo + vbDefaultButton2, "Favor de confirmar...") = vbYes _
Then Eliminar = True
For Sig = 2 To Worksheets.Count
Worksheets(Sig).UsedRange.Copy _
Worksheets(1).Range("a65536").End(xlUp).Offset(1)
Next
If Not Eliminar Then Exit Sub
Application.DisplayAlerts = False
For Sig = 2 To Worksheets.Count
Worksheets(2).Delete
Next
Application.DisplayAlerts = True
End Sub

[supongo que] ya se ira 'ajustando'... segun vayas 'soltando' los detalles que [de momento] quedan 'en el tintero' :))