Sub CopyModule(ByVal SourceFullName, DestFullName, CopyModule, Optional ChangeHeader = False)
      
Dim CodeLines, iText As String
Dim ModuleToCopy As VBComponent
Dim NewModule As VBComponent
Dim CodeMod

    'копируемый модуль
    Windows(SourceFullName).Activate
    Set ModuleToCopy = Application.VBE.ActiveVBProject.VBComponents(CopyModule)

    ' извлекаем вба код из модуля
    CodeLines = ModuleToCopy.CodeModule.Lines( 1 , ModuleToCopy.CodeModule.CountOfLines)

    ' добавляем новый модуль в нужный файл
    'Workbooks.Open "C:\FileForNewModule.xls"
    Windows(DestFullName).Activate
    Set NewModule = ActiveWorkbook.VBProject.VBComponents.Add(vbext_ct_StdModule)

    ' вставляем вба код
    NewModule.CodeModule.AddFromString CodeLines
    ' задаем имя модуля
    NewModule.Name = ModuleToCopy.Name
    
    iText = "Option Explicit"
    Set CodeMod = ActiveWorkbook.VBProject.VBComponents(NewModule.Name).CodeModule
    
    If ChangeHeader Then
        If CodeMod.Find(iText,  3 ,  1 , CodeMod.CountOfLines,  1 ) Then
            CodeMod.InsertLines  5 , "Sub Auto_Open()"
            CodeMod.DeleteLines  6 
        Else
            CodeMod.InsertLines  3 , "Sub Auto_Open()"
            CodeMod.DeleteLines  4 
        End If
    End If
    
    ' если включен режим Option Explicit, нужно убрать дублирование строки
    If CodeMod.Find(iText,  3 ,  1 , CodeMod.CountOfLines,  1 ) Then
        CodeMod.DeleteLines  3 
    End If
End Sub