Copiar contenido de hojas

[Aretradeser]

Buenas noches,
Tengo dos libros excel (Libro1 y Libro2) en la misma carpeta, y pretendo lo siguiente:
Ir copiando el contenido de cada una de las hojas de Libro1 en el Libro2; de tal manera que, copie el contenido de la Hoja1 del Libro1 en la Hoja1 del Libro2; que, al copiar el contenido de la Hoja2 del Libro1, cree antes la Hoja 2 en el Libro2, y copie aquí su ciontenido; que, al copiar el contenido de la Hoja3 del Libro1, cree antes la Hoja3 en el Libro2 y copie aquí su contenido, y así, sucesivamente.
He creado el siguiente cógigo con la grabadora de macros:

Sub CopiarHojas2()

    Application.ScreenUpdating = False
    Workbooks("Libro1.xls").Activate
    Range("A1").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Workbooks.Open ThisWorkbook.Path & "\" & "Libro2.xls"
    ActiveSheet.Paste
    Workbooks("Libro2.xls").Activate
    Sheets.Add
    Sheets("Hoja2").Select
    Application.CutCopyMode = False
    Sheets("Hoja2").Move After:=Sheets(2)
    Workbooks("Libro1.xls").Activate
    Range("A1").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Workbooks("Libro2.xls").Activate
    ActiveSheet.Paste
    Workbooks("Libro2.xls").Activate
    Sheets.Add
    Sheets("Hoja3").Select
    Application.CutCopyMode = False
    Sheets("Hoja3").Move After:=Sheets(3)
    Workbooks("Libro1.xls").Activate
    Range("A1").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Application.ScreenUpdating = True
    Application.CutCopyMode = False
    Range("A1").Select
End Sub

Con este código llego hasta copiar tres Hojas, pero qué modificaciones habría que efectuar a este código para el caso de que el Libro1 tuviese "x" Hojas?
Muchas gracias,
saludos.

 

[Greg Truby]

Veo que usted ya tiene más de 35 mensajes aquí. ¿Pudo usted conseguir ayuda con el problema descrito aquí? ¿O todavía queda pendiente?