Repetir Macro dentro de una Macro

Te anexo la macro actualizada

Sub ValoresComunes()
'Act.Por.Dante Amor
    Application.ScreenUpdating = False
    For Each h In Sheets
        Select Case h.Name
            Case "Fechas", "General", "Reimpresion", "Aguinaldo", _
                 "Resumen", "Base de Datos", "Adelantos"
            Case Else
                h.Range("M48:X63").Copy
                h.Range("M16").PasteSpecial Paste:=xlPasteValues
        End Select
    Next
End Sub

Te explico un poco el funcionamiento:

Establezco en el objeto h cada una de las hojas que existe en todas las hojas del libro

For Each h In Sheets

Entonces empieza el ciclo con la primera hoja de tu libro, establecida en el objeto h.

Establecer un objeto en una variable de objeto, significa que todas las propiedades y métodos del objeto original los puedes utilizar con la variable de objeto.

Cuando tu haces esto:

    For Each h In Sheets
        Select Case h.Name
            Case "Fechas", "General", "Reimpresion", "Aguinaldo", "Resumen", "Base de Datos", "Adelantos"
            Case Else
                h.Range("M48:X63").Select
        End Select
    Next

La macro te envía el error "Error en el método select de la clase Range", esto es debido, a que si te encuentras en la hoja 2 y quieres seleccionar un rango de la hoja1, no puedes, porque primero tendrías que seleccionar la hoja1, después un rango de la hoja1 y después copiar:

    For Each h In Sheets
        Select Case h.Name
            Case "Fechas", "General", "Reimpresion", "Aguinaldo", "Resumen", "Base de Datos", "Adelantos"
            Case Else
                h.Select
                h.Range("M48:X63").Select
                Selection.Copy
        End Select
    Next

Pero todo lo puedes realizar con una sola instrucción:

    For Each h In Sheets
        Select Case h.Name
            Case "Fechas", "General", "Reimpresion", "Aguinaldo", "Resumen", "Base de Datos", "Adelantos"
            Case Else
                h.Range("M48:X63").Copy
        End Select
    Next

Como ya te comenté, con la variable objeto h, puedo utilizar los métodos de la hoja, en este caso puedo utilizar el método Copy

Lo mismo para pegar:

    For Each h In Sheets
        Select Case h.Name
            Case "Fechas", "General", "Reimpresion", "Aguinaldo", _
                 "Resumen", "Base de Datos", "Adelantos"
            Case Else
                h.Range("M48:X63").Copy
                h.Range("M16").PasteSpecial Paste:=xlPasteValues
        End Select
    Next

.

'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias

.

Avísame cualquier duda

.