Sub Copy_Module() 'копировать модуль с макросом
Dim objVBProjFrom As Object, objVBProjTo As Object, objVBComp As Object
Dim sModuleName As String, sFullName As String 'расширение стандартного модуля
Const sExt As String = ".bas"
sModuleName = "MyMacros" 'имя модуля который будет скопирован
On Error Resume Next
Set objVBProjFrom = ThisWorkbook.VBProject 'проект книги, из которой копируем модуль
Set objVBComp = objVBProjFrom.VBComponents(sModuleName) 'необходимый компонент
If objVBComp Is Nothing Then 'если указанного модуля не существует
    MsgBox "Модуль с именем '" & sModuleName & "' отсутствует в книге.", vbCritical, "Error"
    Exit Sub
End If
Set objVBProjTo = ActiveWorkbook.VBProject 'проект книги для добавления модуля
'sFullName = "C:\" & sModuleName & sExt 'полный путь для экспорта/импорта модуля. К папке должен быть доступ на запись/чтение
sFullName = Application.DefaultFilePath & "\" & sModuleName & Ext
objVBComp.Export Filename:=sFullName
objVBProjTo.VBComponents.Import Filename:=sFullName
Kill sFullName 'удаляем временный файл для импорта
End Sub