Sub Show_My_Rows_of_Interest()
Dim rCrit As Range
Const TextOfInterest As String = "RND"
Const ColsOfInterest As String = "F:N"
Application.ScreenUpdating = False
Application.DisplayAlerts = False
With ActiveSheet
On Error Resume Next
.ShowAllData
On Error GoTo 0
Set rCrit = .Range("Z1:Z2")
With Intersect(.UsedRange, .Columns(ColsOfInterest))
rCrit.Cells(2).Formula = Replace(Replace("=COUNTIF(#,""*%*"")", "#", .Rows(2).Address(0, 0)), "%", TextOfInterest)
.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=rCrit, Unique:=False
End With
rCrit.Cells(2).ClearContents
End With
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub