Intercambio de datos en excel con macros

Cuando dices "seria transferir datos de por lo menos 25 archivos diferentes" entendemos por archivo un "libro de excel" o una pestaña de un libro.
Si entiendo lo que necesitas es consolidar 25 ibros distintos en uno, ok.
Eso seria una sola ves, puesto que si los archivos se generan día a día, una vez consolidados los 25 primeros, luego bastaría solo con consolidar el nuevo archivo diario que se genere, ¿estoy en lo cierto?. ¿O no?.
Si es eso, indicame lo siguiente
Ruta completa en donde están los archivos a leer y copiar
Nombre de la hoja de cada uno de esos libros y el rango respectivo que se debe tomar para extraer

Hola Calvuch, gracias por su atención
Aclaro algunas cosas:
1. Archivo es un libro de excel que genera cada día nuevos datos ( diferente para cada día y solo días hábiles de trabajo, había puesto 25 pero la realidad en que en cada mes solo son como mucho 22 creo).
2. Cuando se acaba el mes debo empezar lógicamente a rellenar los días hábiles específicos de ese mes, con los datos de cada día en cada fila de la hoja de destino, o sea que todos los meses los archivos o "libros" origen son diferentes.
3. Rutas de los archivos
C:\Users\Leonardo Garzon\Desktop\MAYO\PARTE TRABAJO 03052011.XLS
C:\Users\Leonardo Garzon\Desktop\MAYO\PARTE TRABAJO 04052011.XLS
C:\Users\Leonardo Garzon\Desktop\MAYO\PARTE TRABAJO 05052011.XLS
C:\Users\Leonardo Garzon\Desktop\MAYO\PARTE TRABAJO 06052011.XLS
::::::
::::::
C:\Users\Leonardo Garzon\Desktop\MAYO\PARTE TRABAJO 31052011.XLS
Donde el primer día empezaría en la fila 4 hasta que termine el mes.
4. Las celdas a leer y luego a copiar quedarían así:
llibro de origen(celda) libro de destino(celda)
d18 M4
D19 N4
D20 B4
D21 J4
D22 K4
D23 C4
J18 E4
J19 F4
J20 G4
J21 H4
Luego para el archivo (libro) de destino solo es que se copien en la fila "5" el día 03052011 y así sucesivo hasta terminar.
La cuestión es que fuera flexible para adpatarlo a cualquier mes, ya que es algo que debo consolidar todos los meses para hacer un informe de gestión.
Espero haber sido claro con la explicación, de antemano mil gracias por la colaboración, ya que esto me ahorraría mucho tiempo.
Saludo cordial

Veamos un ejemplo
1 crea un libro nuevo y guardalo donde desees
En la hoja 1 en la celda A1 pones la ruta
C:\Users\Leonardo Garzon\Desktop\MAYO\
Siempre el path ( ruta) debe terminar con \
Bien, la columna A la utilizaremos para traer el nombre de los archivos xls desde el path indicado en A1
Para eso correrás el macro "leer_directorio"
Luego una vez rescatados los nombres de los archivos correrás el macro "importar_datos"
En ese orden ok.
Ahora los macros
Desde el editor de Vba ( ALT +F11) inserta un modulo y en el pegas esto:
Sub leer_directorio()
'recorrer directorio C:\Users\Leonardo Garzon\Desktop\MAYO\
Dim m As String
Dim i As Integer
Dim directorio As String
directorio = [A1] 'PASAMOS EL PATH INDICADO EN A1
If directorio = "" Then Exit Sub
ChDir "C:\"
m = Dir(directorio & "*.xls")
i = 3
[A2] = m
Do Until m = ""
m = Dir ' sgte entrada del directorio
If m = "" Then Exit Do
Range("A" & i) = m ' CARGAMOS EL NOMBRE DEL LIBRO EN LA HOJA
i = (i + 1)
DoEvents
Loop
'Shell "WINWORD.EXE C:\pdf_core\" & Arc & "*.doc", vbNormalFocus abrir un dco word
End Sub
Sub importar_datos()
'extrae la info de cada uno de los libros de la lista
'antes recuperada con sub leer_directorio
Dim fila As Integer
Dim n As Integer
Dim i As Integer
Dim libro As String
' contamos cuantos libros utilizaremos para extraccion
n = Application.WorksheetFunction.CountA(Range("A2" & ":" & "A65536"))
If n = 0 Then Exit Sub
If [A1] = Empty Then Exit Sub
fila = 4
Application.ScreenUpdating = False
For i = 2 To n + 1
libro = Range("A" & i)
Range("m" & fila) = "=+'" & [A1] & "[" & libro & "]Hoja1'!$d$18"
Range("n" & fila) = "=+'" & [A1] & "[" & libro & "]Hoja1'!$d$19"
Range("b" & fila) = "=+'" & [A1] & "[" & libro & "]Hoja1'!$d$20"
Range("j" & fila) = "=+'" & [A1] & "[" & libro & "]Hoja1'!$d$21"
Range("k" & fila) = "=+'" & [A1] & "[" & libro & "]Hoja1'!$d$22"
Range("c" & fila) = "=+'" & [A1] & "[" & libro & "]Hoja1'!$d$23"
Range("e" & fila) = "=+'" & [A1] & "[" & libro & "]Hoja1'!$j$18"
Range("f" & fila) = "=+'" & [A1] & "[" & libro & "]Hoja1'!$j$19"
Range("g" & fila) = "=+'" & [A1] & "[" & libro & "]Hoja1'!$j$20"
Range("h" & fila) = "=+'" & [A1] & "[" & libro & "]Hoja1'!$j$21"
fila = (fila + 1)
DoEvents
Next
Application.ScreenUpdating = True
MsgBox "Terminado", vbInformation
End Sub
Grabas el libro y ya, corre los macros.
Nota:
Lo que hace este macro es insertar en las celdas que indicaste, una llamada a los libros cerrado indicados en columna A
De esta forma lo que tenemos son datos por referencia, luego solo debes tomar cada rango de datos, copiarlos y pegarlos solo como texto en el libro de resumen que tu decidas.
No quise copiar y pegar para eliminar referencias dentro del libro, pues no se que tienes en las columnas interm edias DE e I ( podrían ser funciones y si copio todo el rango te las borraría).
en fin. eso
Todo parte por poner correctamente el path en la celdas A1 y obviamente tener archivos xls en la carpeta que leerás.
Yo utilice el siguiente path a modo de ejemplo C:\prueba\
Y lo corrí con 10 archivos y funciono bien
El segundo macro desactiva el refresco en pantalla mientras se esta ejecutando, así que una vez iniciado debes esperar a que se te notifique el termino mediante un mensaje en pantalla
No olvides CERRAR la pregunta