Code to keep certain rows

[Dazzawm]

Hi I need a code that will look in column J and keep any row that has (WSL) in the cell and delete all the others. (WSL) or (wsl) will be among other data in the cell, either at the beginning, middle or end so I cant do a sort. Thanks.

 

[ponnars]

It can be used with any code.

Dim r As Range
Dim LR1 As Long, LR2 As Long
LR1 = Range("J" & Rows.Count).End(xlUp).Row
Set r = Intersect(Activesheet.UsedRange,Range("J:J"))
Activesheet.Autofiltermode = False
r.Autofilter Field:=1,Criteria1:="<>*WSL*"
r.Offset(1).SpecialCells(xlCellTypeVisible).EntireRow.Delete
Activesheet.AutofilterMode = False
LR2 = Range("J" & Rows.Count).End(xlUp).Row
MsgBox LR1 - LR2 & " rows deleted" & vbNewLine & LR2 & " rows retained", vbInformation

Should be like this for richard's code.
Thanks for the code VoG.
Works great for me.

 

[Dazzawm]

Thanks, works great.