Вам просто нужно передать значение переменной параметру 'Criteria1'.
В настоящее время вы просто отправляете автофильтру строковый литерал "= searchtext".
Пример:
Dim myCriteria as String
myCriteria = "ThisIsVariable"
Range("$A$1:$C$118").AutoFilter Field:=1, Criteria1:=myCriteria