Copiar datos de todos libros y pegar a otro libro

Hola experto, tengo 12 libros en una carpeta ( "1.xls", "2.xls","3.xls",.....,"12.xls"), los cuales son muy similares.Cada uno de ellos representa un mes, en cada libro existe una tabla comun para todos los libros, esta tabla es la que quiero copiar y pegar en el "1.xls".
Cada mes se agregara un libro mas a esta carpeta ,por ejemplo el proximo libro se llamara :"13.xls"
Por eso , lo que necesito por ahora es que en el Libro 1, se encuentre todos los datos de todos los meses, es decir datos de los otros libros.
Aqui te dejo un pequeño avance, que solo funcionaria para copiar los datos del Libro 2 y pegarlos en el Libro 1.
Workbooks.Open ThisWorkbook.Path & "\" & "2.xls"
Windows("2.xls").Activate
Sheets("Datos").Select
lf = Range("A65536").End(xlUp).Row - 1
If Workbooks("1").Sheets("Datos").Cells(lf, 3).Value <> Workbooks("2").Sheets("Datos").Cells(lf, 3).Value Then
LR = Range("A65536").End(xlUp).Row
Range(Cells(2, 1), Cells(LR, 19)).Select
Selection.Copy
Windows("1.xls").Activate
Sheets("Datos").Select
Range("A1").Select
Do While ActiveCell <> Empty
ActiveCell.Offset(1, 0).Select
Loop
ActiveSheet.Paste
Else
li = Range("A65536").End(xlUp).Row + 1
Cells(li, 1).Select
End If
Pero se necesita que copie los datos de los Libros: "1.xls", "2.xls","3.xls",.....,"12.xls"una sola vez.
En la formula, Lo que esta en negrita es para que solo copie los datos una sola vez.
Asi mas o menos es el formato de la ultima parte de cada libro, de la hoja "Datos" :
A B C D E F
Año Mes Linea Cta Lote Familia
2010 07 D 253102 28089 NM10
2010 07 D 253100 28089 NM10

2010 07 D 253102 28089 NM10
Total Lote 28089
TOTAL GENREAL:
Espero haberme dejado entender, Gracias de antemano!!

Añade tu respuesta

Haz clic para o