Ok so I re wrote the macro to this and it seems to work...
Now I need to be able to bookmark these images being added for removal later if possible?

Sub TITLE()
Application.ScreenUpdating = False
Dim Shp As Shape

ActiveDocument.Sections(1).PageSetup.DifferentFirs tPageHeaderFooter = True
ActiveDocument.Sections(1).PageSetup.TopMargin = CentimetersToPoints(5)

With Selection.Sections(1)
Set Shp = .Headers(wdHeaderFooterFirstPage).Shapes.AddPictur e _
(FileName:="Z:\Logo1.jpg", LinkToFile:=False, SaveWithDocument:=True)
With Shp
.Height = CentimetersToPoints(4.94)
.Width = CentimetersToPoints(3.58)
.LockAspectRatio = True
.Left = CentimetersToPoints(13.67)
.Top = CentimetersToPoints(-1.23)
.WrapFormat.AllowOverlap = True
.WrapFormat.Side = wdWrapNone
End With

With Selection.Sections(1)
Set Shp = .Headers(wdHeaderFooterFirstPage).Shapes.AddPictur e _
(FileName:="Z:\Logo2.jpg", LinkToFile:=False, SaveWithDocument:=True)
With Shp
.Height = CentimetersToPoints(4.29)
.Width = CentimetersToPoints(4.84)
.LockAspectRatio = True
.Left = CentimetersToPoints(7.83)
.Top = CentimetersToPoints(-0.27)
.WrapFormat.AllowOverlap = True
.WrapFormat.Side = wdWrapNone
End With
End With
Set Shp = Nothing
Application.ScreenUpdating = True
End Sub

Thank you