Blank out cells Macro plz help

[omegadeltaphi]

In my B column I have (non important) information that I want to
simply blank out not delete. The only data I want to keep is two
acronyms: WAI & ACT everything else i want to blank out

My data consists of :
3 Columns & Thousands of Rows

Any suggestions or Macro?

Thanks in advance

Steve G

 

[John Davis]

In my B column I have (non important) information that I want to
simply blank out not delete. The only data I want to keep is two
acronyms: WAI & ACT everything else i want to blank out

My data consists of :
3 Columns & Thousands of Rows

Any suggestions or Macro?

Thanks in advance

Steve G

Not sure about blank out, but maybe? Untested try on a copy first.

Sub omegadeltaphi()
Dim x As Range
Dim y As Range
Dim lr As Long

lr = cells(rows.count,2).End(xlUp).row

Set y = Range(Range("B2"), Range("B" & lr))

For Each x In y

    If x.Value <> "WAI" Or x.Value <> "ACT" Then
    
        x.Font.ColorIndex = 2
        
    End If
    
Next x



End Sub