It's getting stuck below where indicated in red

Sub AddImageToFooter()
Dim SrcePath As String, footerPic As InlineShape, aShp As Shape
SrcePath = "S:\DocBase\Document Templates\Macros\New Macros Nov 2018\Footer Pg1.jpg"
Set footerPic = ActiveDocument.Sections(1).Footers(wdHeaderFooterP rimary).Range.InlineShapes.AddPicture(SrcePath)
Set aShp = footerPic.ConvertToShape
With aShp
.LockAspectRatio = msoTrue
.Width = CentimetersToPoints(21)
.RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
.RelativeVerticalPosition = wdRelativeVerticalPositionPage
.Bottom = 0
.Left = 0
.WrapFormat.Type = wdWrapBehind
End With
End Sub