Macro to delete all rows, except those containing text BRFM

[howard]

I have code to delete all rows in Col C from row 4 onwards except whre the text contains BRFM for eg BRFM REDIT

I am struggling with this part below

  If Cells(LR, 3) <> Like  "BRFM*" Then

 Sub Delete_Unwanted()
Sheets(2).Select
Dim LastRow As Long
 Dim LR As Long

 'fetch the count of rows to act upon

 LastRow = Range("a65593").End(xlUp).Row

 'starting at the bottom of the spreadsheet and work upwards

 For LR = LastRow To 4 Step -1

 'look at the Row# based upon the count and the cell in Column A for that row

 If Cells(LR, 3) <> Like  "BRFM*" Then

 Cells(LR, 3).EntireRow.Delete

 
 End If

 Next LR

 End Sub

It would be appreciated if someone could kindly assist me

 

[Fluff]

Try

If Not Cells(LR, 3) Like  "BRFM*" Then

 

[howard]

Thanks for the help. Code works perfectly

 

[Fluff]

Glad to help &thanks for the feedback