Hi,

I have the following code:
            ' The area to be inserted into body:
                Range("A1:F10").Select
                Selection.Copy
            
                Dim a As Object
                Set a = Nothing
                  Set a = CreateObject("Word.Application")
                   a.Documents.Add
                   a.Selection.Paste

                  ' K3:L8 contains the picture
                  Range("K3:L8").Select
                  Selection.Copy
                
                  a.ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
                  a.Selection.Paste
                  a.Visible = True
The code works, but instead of pasting the K3:L8 area to my header, it is pasted beneath the first pasted text.

Can someone help me rewrite this, so it works?

Regards, Scifo