Sub TT()
Dim oRng As range
Set oRng = ActiveDocument.range
    With oRng.Find
      .ClearFormatting
      .Replacement.ClearFormatting
      .text = "Title"
      .Replacement.text = ""
      .Forward = True
      .Wrap = wdFindContinue
      .Format = False
      .MatchCase = False
      .Execute
    End With
    oRng.Collapse wdCollapseEnd 'this line can be commented
    oRng.End = ActiveDocument.range.End
    oRng.Select 'this line is for testing, can be commented
    With oRng.Find
      .text = "Section"
      .Execute
    End With
     oRng.Select 'this line is for testing, can be commented
lbl_exit:
Set oRng = Nothing
Exit Sub
End Sub