Sub GetAndRemoveSectionByInstanceNumber()
Dim ScnBrk As Long
With ActiveDocument.Range
    With .Find
      .ClearFormatting
      .Replacement.ClearFormatting
      .Text = "Inst#: " & ReportInstance
      .Replacement.Text = ""
      .Forward = True
      .Wrap = wdFindStop
      .Format = False
      .MatchWildcards = True
      .Execute
    End With
    If .Find.Found = True Then
      With .Duplicate
        ScnBrk = .Sections(1).PageSetup.SectionStart
        .Sections(1).Range.Delete
        .Sections(1).PageSetup.SectionStart = ScnBrk
      End With
    End If
End With
End Sub