Search for Specific Text in a column & Delete Rows

This would do as you've described. It is not CASE specific so it will find DEMO, demo, DEmo, and any other variation. It also only deletes once at the end, so should be quicker than a row by row deletion.

Sub DeleteDEMOrows()
Dim delRNG As Range, vFIND As Range, vFIRST As Range

On Error Resume Next
Set vFIND = Range("B:B").Find(What:="demo", LookAt:=xlPart, MatchCase:=False, SearchFormat:=False)
On Error GoTo 0

If Not vFIND Is Nothing Then
    Set vFIRST = vFIND
    Set delRNG = vFIND
    Do
        Set delRNG = Union(delRNG, vFIND)
        Set vFIND = Cells.FindNext(After:=vFIND)
    Loop Until vFIND.Address = vFIRST.Address
    
    delRNG.EntireRow.Delete xlShiftUp
End If

End Sub

If that takes care of your original question, please select Thread Tools from the menu link above and mark this thread as SOLVED. Thanks.