title: Export from Excel to a word Document and insert a header in word
body: <p>I have the following code:</p>
  
  <pre><code>    Sub CreateRapport()
  
      Dim wdApp As Object
      Dim wd As Object
  
      On Error Resume Next
      Set wdApp = GetObject(, "Word.Application")
      If Err.Number &lt;&gt; 0 Then
          Set wdApp = CreateObject("Word.Application")
      End If
      On Error GoTo 0
  
      Set wd = wdApp.Documents.Add
  
      wdApp.Visible = True
  
  
  
  Sheets("Rapport").Activate
  Set Rng = ThisWorkbook.ActiveSheet.Range("A1:E76")
  
  Rng.Copy
  
     With wd.Range
          .Collapse Direction:=0                  'Slutet av dokumentet
          .InsertParagraphAfter                   'Lägg till rad
          .Collapse Direction:=0                  'Slutet av dokumentet
          .PasteSpecial False, False, True        'Pasta som Enhanced Metafile
  
      End With
  
  End Sub
  </code></pre>
  
  <p>What it does is that it creates a word document with the data from range A1:E76</p>
  
  <p>I want to insert a header in this word document that contains a picture and a name. The name in this header is in cell A1 in the same sheet.</p>
  
  <p>Would be very thankful if anyone could help me with this. Thank you.</p>