With wrdDoc.Sections(1)
.Headers (wdHeaderFooterPrimary)
.Selection.HomeKey Unit:=wdStory
.Selection.GoTo What:=wdGoToBookmark, Name:="ET"
End With
wrdApp.Selection.PasteSpecial Link:=True, DataType:=wdPasteOLEObject, Placement:=wdInLine, DisplayAsIcon:=False
wrdApp.Selection.MoveUp Unit:=wdLine, Count:=1, Extend:=wdExtend