Copiar contenido de hojas

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ódigo 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 efectuarle para el caso de que el Libro1 tuviese "x" Hojas?
Muchas gracias,
Saludos.