Запустить саб при нажатии клавиши

Question

Мы используем формулу для фильтрации данных в электронной таблице на основе одной ячейки. Фильтр запускается при нажатии «Ввод». Мы хотим, чтобы фильтр запускался каждый раз, когда мы добавляем символ в ячейку.

Например, если мы введем «frans» в a2 и нажмем клавишу «Enter», он будет фильтровать по «frans», но мы хотим, чтобы он уже фильтровал по первому символу «f», если мы введем его.

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice 20160606
   If Target.Address = Range("a2").Address Then
       Range("A5:E2500").CurrentRegion.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("a1:a2")
   End If
End Sub