Are you searching for partial text in the cell, or just the value in the cell ??
Also, what does this have to do with Autofilter ??
If it's whole text use
Dim r As Integer
r = Application.WorksheetFunction.CountIf(Range("B2:B15"), Range("A1"))
The cells will contain more than A1
So the autofilter has the function contains however it sorts the rows but not give me a result of number of rows
Option Compare Text
Dim lr As Long, r As Long, n As Integer
lr = Cells(Rows.Count, "E").End(xlUp).Row
n = 0
For r = lr To 1 Step -1
If InStr(Range("E" & r).Value, Range("A1").Value) Then
n = n + 1
MsgBox "There are " & n & " occurences in the list"