Copiar hojas de un libro en otro libro manteniendo las macro del libro copiado.

Saludos. Resulta que tengo la siguiente macro:

Sub Macro4()
'
' Macro4 Macro
'
' Acceso directo: CTRL+b
'
Sheets(Array("U1", "U2", "IU1", "IU2", _
"EQUIPO", "AGUA", "POZO", "VIB", "RESUMEN", "DESV", "RESUMEN MANT." _
)).Select
Sheets("UNIDAD 1").Activate
Sheets(Array("U1", "U2", "IU1", "IU2", _
"EQUIPO", "AGUA", "POZO", "VIB", "RESUMEN", "DESV", "RESUMEN MANT." _
)).Copy
Application.ScreenUpdating = False
Sheets("U1").Select
Range("C12:U36").Select
Selection.ClearContents
Range("C12").Select
Sheets("U2").Select
Range("C12:U36").Select
Selection.ClearContents
Range("C12").Select
Sheets("IU1").Select
Range("C12:W36").Select
Selection.ClearContents
Range("C12").Select
Sheets("IU2").Select
Range("C12:W36").Select
Selection.ClearContents
Range("C12").Select
Sheets("EQUIPO").Select
Range("D11:Q35").Select
Selection.ClearContents
Range("D11").Select
Sheets("AGUA").Select
Range("C5").Select
Selection.ClearContents
Range("C12:N36").Select
Selection.ClearContents
Range("C12").Select
Sheets("POZO").Select
Range("D11:G35").Select
Selection.ClearContents
Range("J11:M35").Select
Selection.ClearContents
Range("J11").Select
Sheets("VIB").Select
Range("C8:D8").Select
Range("C16:H40").Select
Selection.ClearContents
Range("K16:P40").Select
Selection.ClearContents
Range("K16").Select
Sheets("RESUMEN").Select
Sheets("RESUMEN MANT.").Select
Range("B6:I150").Select
Selection.ClearContents
Range("B6").Select
Sheets("U1").Select
Range("C12").Select
End Sub

la hice con la herramienta grabar macro, y pues me hace una copia del libro actual y borra todos sus datos para comenzar en un nuevo archivo, el problema es que cuando ejecuto las macro que están en las hojas hacen referencia al libro original y yo quisiera que se copiaran también las macros cuando copio las hojas.

Espero me puedan ayudar estoy algo impotente sin saber que hacer.