[VBA] word automation da excel - header & footer

[Elmapomap]

Ciao a tutti,
premetto che non sono molto bravo con questo linguaggio.
Nel codice sotto sono riuscito a fare dei controlli su una tabella creata in excel, l'ho copiata, ho aperto un nuovo file word, ora voglio che copi quello che ho copiato come header del word aperto...mi aiutate??
grazie in anticipo

Sub AVANTI()
'faccio i miei controlli
Sheets("Compilazione Dati OPL").Select
If Not Cells(4, 2) = 0 Then
If Not Cells(5, 2) = 0 Then
If Not Cells(6, 2) = 0 Then
If Not Cells(2, 8) = "" Then
'copio la tabella
Sheets("Header").Select
    Range("A1:L10").Select
    Range("L10").Activate
    Selection.Copy
'apro un nuovo word
Dim wrdApp As Word.Application
Dim wrdDoc As Word.Document
Set wrdApp = CreateObject("Word.Application")
wrdApp.Visible = True
Set wrdDoc = wrdApp.Documents.Add


' else relativi ai controlli
Else
MsgBox ("Compilare i campi obbligatori")
End If
Else
MsgBox ("Compilare i campi obbligatori")
End If
Else
MsgBox ("Compilare i campi obbligatori")
End If
Else
MsgBox ("Compilare i campi obbligatori")
End If
End Sub