Sub Heading5_Delete() ' 01/25/2022
    
    Dim myPara As Paragraph
    Dim blnHeading5Found As Boolean
    
    For Each myPara In ActiveDocument.Paragraphs
        ' If H5 has been found in a prior loop iteration,
        ' then check subsequent paragraphs:
        If blnHeading5Found = True Then
            ' If the Heading number is 5 or higher...
            If Mid(myPara.Range.Style, 9, 1) > 4 Then
                ' ...then delete the paragraph:
                myPara.Range.Delete
            ' Or if the style doesn't have "Heading" in it:
            ElseIf InStr(myPara.Style, "Heading") <> 1 Then
                ' ...then delete it:
                myPara.Range.Delete
            ' Otherwise, reset the "found" variable to false:
            Else
                blnHeading5Found = False
            End If
        End If
        
        ' If the paragraph style is Heading 5:
        If InStr(myPara.Range.Style, "Heading 5") = 1 Then
            ' ...then delete it:
            myPara.Range.Delete
            ' ...and set the "found" variable to true, in order to
            ' evaluate subsequent paragraphs:
            blnHeading5Found = True
        End If
    Next myPara
End Sub