Hi,

You need to select the Header and then insert your picture ...
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
Selection.InlineShapes.AddPicture ....
HTH