Vê se estes códigos te ajuda.
No anexo tem o arquivo.

Private Sub CommandButton1_Click()
Call CopiarMc
End Sub


Sub CopiarMc()
    Worksheets.Add
    ActiveSheet.OLEObjects.Add ClassType:="Forms.CommandButton.1", Width:=144, Height:=45
    
    Dim x
    Set x = Worksheets.Application.VBE.ActiveVBProject.VBComponents.Item(ActiveSheet.CodeName).CodeModule
    
    x.DeleteLines 1
    x.InsertLines 1, "Private Sub CommandButton1_Click()"
    x.InsertLines 2, "Call CopiarMc"
    x.InsertLines 3, "End Sub"
End Sub

Bom dia.
Atende sim, mas esta dando um erro.

Set x = Worksheets.Application.VBE.ActiveVBProject.VBComponents.Item(ActiveSheet.CodeName).CodeModule

Você tem que alterar as configurações da centra de confiabilidade. Vá em Opções do Excel >> Central de Confiabilidade >> Configurações da Central de Confiabilidade >> COnfiguações de Macro e então selecione o check box "Confiar no acesso ao modelo de objeto de projeto VBA".

Fiz uma alteração no CODE. Utiliza o arquivo em anexo.

Sub CopiarMc()
    Dim y As OLEObject
    Set y = ActiveSheet.OLEObjects("CommandButton1")
    
    Worksheets.Add
    ActiveSheet.OLEObjects.Add ClassType:="Forms.CommandButton.1", Width:=y.Width, Height:=y.Height, Top:=y.Top, Left:=y.Left
    
    Dim x
    Set x = Worksheets.Application.VBE.ActiveVBProject.VBComponents.Item(ActiveSheet.CodeName).CodeModule
    
    On Error Resume Next
        x.DeleteLines 1
    On Error GoTo 0
    
    x.InsertLines 1, "Private Sub CommandButton1_Click()"
    x.InsertLines 2, "Call CopiarMc"
    x.InsertLines 3, "End Sub"
End Sub

Perfeito, ficou show de bola.
Muito obrigado.

Blz. Qualquer coisa é só falar.