Macro para actualizar información de Excel en Word

Creo que me puede ayudar con una macro que estoy desarrollando pero tengo un problemita.

De acuerdo con cambios de texto que realice en un archivo Excel, estos se deben ver reflejados en un archivo plantilla de Word. Son 25 bloques de texto (dos de ellos ubicados en el encabezado de Word). Todo va bien, pero en lo dos bloques de texto ubicados en el encabezado del Word no funciona el código (no actualiza su contenido). He buscado la solución pero no la he encontrado. Va el código a ver si me puede ayudar. De antemano gracias.

Sub ExportWord()
    '
    patharch = ThisWorkbook.Path & "\_Res_NEGACION2020(vr.1)C.dotx"
    '
    For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
        Set objWord = CreateObject("Word.Application")
        objWord.Visible = True
        objWord.Documents.Add Template:=patharch, NewTemplate:=False, DocumentType:=0
        '
        For j = 1 To Cells(1, Columns.Count).End(xlToLeft).Column
            textobuscar = Cells(1, j)
            objWord.Selection.Move 6, -1
            objWord.Selection.Find.Execute FindText:=textobuscar
            '
            While objWord.Selection.Find.Found = True
                objWord.Selection.Text = Cells(i, j) 'texto a reemplazar
                objWord.Selection.Move 6, -1
                objWord.Selection.Find.Execute FindText:=textobuscar
            Wend
            '
        Next
        '
        MsgBox "Resolución elaborada correctamente"
        objWord.Activate
        objWord.ActiveDocument.SaveAs "C:\Users\Asus-PC\Desktop\Res_NegacionC\RES_" & Hoja6.Range("A2") & "_" & Hoja6.Range("W3") & ".docx"
        End
    Next
End Sub