which way to use filter data before finishing from writing word based on cell value

[Ali M]

Hi

I search for way to show me filter data before finishing from writing the word . in other meaning will filter data when I write part of word until finishing from write the whole word . I don't want to wait for finishing from writing the whole word to see the result.
I use this

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim lr As Long
    Dim rng As Range
    lr= Me.Cells(Rows.Count, "C").End(xlUp).Row
    Set rng= Range("C5:H" & lr)
    If Me.FilterMode Then Me.ShowAllData
    If Not IsEmpty(Range("K2")) Then
        rng.AutoFilter Field:=2, Criteria1:=Range("K2").Value & "*"
     End If

thanks