Loop through pages and insert header image

[Lefemmenikita]

Hi There

I am trying to modify the following code I found online so that it inserts the same header image on to all pages in a document.

Sub TITLE()
Application.ScreenUpdating = False
Dim Shp As Shape
With ActiveDocument.Sections(1)
  With .PageSetup
    .DifferentFirstPageHeaderFooter = True
    .TopMargin = CentimetersToPoints(5)
  End With
  Set Shp = .Headers(wdHeaderFooterFirstPage).Shapes.AddPicture _
    (Filename:="H:\Logo.jpg", LinkToFile:=False, SaveWithDocument:=True)
  With Shp
    .Height = CentimetersToPoints(8.94)
    .Width = CentimetersToPoints(5.58)
    .LockAspectRatio = True
    .Left = CentimetersToPoints(-0.63)
    .Top = CentimetersToPoints(-0.27)
    .WrapFormat.AllowOverlap = True
    .WrapFormat.Side = wdWrapNone
    
  End With

  End With

Set Shp = Nothing
Application.ScreenUpdating = True
End Sub

I can't find what the code is for MS Word so that it loops through all pages in a document and selects the header.

Can you please advise how I would modify this?

Many thanks