macro's gone before/after saving to .docm

Question

I am working on an excel file that opens a source document(word) that I want to save to another name but with the macro's from the source.
Opening the file is not the problem but after this merge (I am using mailmerge) and changing the source document name the macro's are gone (even before saving to .docm). In the source document the macro is available after merging though.

any idea's how to fix this?

The code I use is this:

Dim wd As Object
Dim wdocSource As Object
Dim strWorkbookName As String
Dim DocSrc  As String
Dim number As String

number = CStr(ActiveWorkbook.Sheets("MailMerge").Cells(2, 5))

Const wdFormLetters = 0, wdOpenFormatAuto = 0
Const wdSendToNewDocument = 0, wdDefaultFirstRecord = 1, wdDefaultLastRecord = 1

'If Len(Dir("<directory>" & number, vbDirectory)) = 0 Then MkDir "<directory>" & number
fileSaveName = "X:\SAVENAME.docm"
On Error Resume Next
Set wd = GetObject(, "Word.Application")
If wd Is Nothing Then
    Set wd = CreateObject("Word.Application")
End If
On Error GoTo 0

Set wdocSource = wd.Documents.Open("<directroy>\Test.docm")

strWorkbookName = ThisWorkbook.Path & "\" & ThisWorkbook.Name

wdocSource.MailMerge.MainDocumentType = wdFormLetters

wdocSource.MailMerge.OpenDataSource _
        Name:=strWorkbookName, _
        AddToRecentFiles:=False, _
        Revert:=False, _
        Format:=wdOpenFormatAuto, _
        Connection:="Data Source=" & strWorkbookName & ";Mode=Read", _
        SQLStatement:="SELECT * FROM `MailMerge$` "
          With wdocSource.MailMerge
              .Destination = wdSendToNewDocument
              .SuppressBlankLines = True
                With .DataSource
                     .FirstRecord = wdDefaultFirstRecord
                     .LastRecord = wdDefaultLastRecord
                End With
              .Execute Pause:=False
          End With

   wd.Visible = True

 ' wdocSource.Close SaveChanges:=False
  'wd.ActiveDocument.SaveAs fileSaveName
  'wd.ActiveDocument.Close
Set wdocSource = Nothing
Set wd = Nothing