How to export code from a text editor in the main workbook to a text editor for many files

Hello everyone
I have searched in this wonderful Forum and found this file
I need help in just one point
How can add a line in the same code to export the codes in Module NO 2 to the text editor In all the files that have been created
Hope it is clear
Thanks advanced for help

If I understood you well: Yes, it is.

First of all you shall SaveAs with fileformat 52 not 51

51 is xlOpenXMLWorkbook (without macro's in 2007-2016, xlsx)
52 is xlOpenXMLWorkbookMacroEnabled (with [or without] macro's in 2007-2016, xlsm)

Second you have to enable VBA access to Project Object model. Two actions are needed:
* VB Editor > Tools > References > (Check) Microsoft Visual Basic for Applications Extensibility 5.3
* File -> Options -> Trust Center -> Trust Center Setttings -> Macro Settings -> Trust Access to the VBA Project object model.

And having these requirements completed, you could use code similar to the one from here: https://stackoverflow.com/questions/...other-workbook to write module into the file

If you successfully changed Trust Access to VBA model and marked reference as checked, then code part in your Module1 is as follows:

Option Explicit
Sub zz()
If Cells(Rows.Count, 1).End(xlUp).Row < 8 Then MsgBox "No data for ...": Exit Sub

'...

Next
Next
' changed xlsx to xlsm twice
If Len(Dir(p & k & ".xlsm")) Then
affirm = MsgBox("Record of " & k & " existing, accumulate to it or not?", vbYesNo)
f = Dir(p & k & ".xlsm")
Workbooks.Open p & f

'...

Myr = 7 + UBound(br)
GoSub Fula
'added call to copymodule - code of this module is pasted below current sub
'source: https://stackoverflow.com/questions/40956465/vba-to-copy-module-from-one-excel-workbook-to-another-workbook
Call CopyModule(ThisWorkbook, "Module2", ActiveWorkbook)
'changed 51 to 52
ActiveWorkbook.SaveAs p & k, FileFormat:=52
End If

'...

Return
End Sub

'and code from above link just pasted below:
Public Sub CopyModule(SourceWB As Workbook, strModuleName As String, TargetWB As Workbook)

    ' Description:  copies a module from one workbook to another
    ' example: CopyModule Workbooks(ThisWorkbook), "Module2",
    '          Workbooks("Food Specials Rolling Depot Memo 46 - 01.xlsm")
    ' Notes:   If Module to be copied already exists, it is removed first,
    '          and afterwards copied

    Dim strFolder                       As String
    Dim strTempFile                     As String
    Dim FName                           As String

'...

See also attached file - I tested it and it prepares set of 8 new xlsm files with Module2 inside.

The issue with files created before is that these files are in xlsx format (not enabled macros). So these files shall be first converted into xlsm format, possibly with adding a module to each of them.

Here is example procedure to do it (copy it into your module 1 (and remember to make a backup copy of original xlsx files in case something goes wrong during this conversion):

Sub aa()
Application.ScreenUpdating = 0
Dim p$, f$
p = ThisWorkbook.Path & "\"
f = Dir(p & "*.xlsx")
While Len(f) > 0
  Workbooks.Open p & f
  Call CopyModule(ThisWorkbook, "Module2", ActiveWorkbook)
  ActiveWorkbook.SaveAs p & Replace(f, ".xlsx", ".xlsm"), FileFormat:=52
  ActiveWorkbook.Close
  Kill p & f
  f = Dir(p & "*.xlsx") 'this could be used without parameters, but as we kill files ...
Wend
Application.ScreenUpdating = 1
MsgBox "Done"
End Sub

And after running this, your files will be xlsm type and will contain all Module2 code inside