Copiar las hojas de un libro a otro manteniendo sus macros.

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. Las macros que tengo en las otras hojas las controla un botón activex en el cual le asigno la macro.
Espero me puedan ayudar estoy algo impotente sin saber que hacer.