how to filter exact text

[faizzsheikh]

Hi..

Someone please help me here.

Example: In column A I have the below data, I want to apply filter to only get cells with ent and I don't want treatment and dentist.

COLUMN A
treatment for hair loss
treatment for skin
free treatment clinic
best ent doctors
top ent clinics
clinics for ent near me
dental clinic near me
best dentist clinic

 

[MickG]

Possibly, for results in column "B".

Dim ray
ray = WorksheetFunction.Transpose(Range(Range("A1"), Range("A" & Rows.Count).End(xlUp)).Value)
ray = Filter(ray, " ent ", True)
Range("b1").Resize(UBound(ray) + 1) = WorksheetFunction.Transpose(ray)