وعليكم السلام أخي الكريم زياد
جرب الكود التالي عله يفي بالغرض إن شاء الله

Private Sub TextBox1_Change()
    Dim a           As Variant
    Dim rng         As Range
    Static c        As Range
    Dim lr          As Long
    Dim i           As Long

    Application.ScreenUpdating = False
        ActiveSheet.AutoFilterMode = False
        If Not c Is Nothing Then c.EntireRow.Hidden = False
        lr = Range("E1000").End(xlUp).Row
        Set c = Range("E4:E" & lr)
        a = c.Value
        
        If Len(TextBox1.Text) > 0 Then
            For i = 1 To UBound(a, 1)
                If IsNumeric(a(i, 1)) Then a(i, 1) = "'" & a(i, 1)
            Next i
            c.Value = a
            c.AutoFilter Field:=1, Criteria1:="=" & TextBox1.Text & "*"
        End If
        
        Set rng = c.SpecialCells(xlCellTypeVisible)
        ActiveSheet.AutoFilterMode = False
        
        For i = 1 To UBound(a, 1)
            If Left(a(i, 1), 1) = "'" Then
                a(i, 1) = Mid(a(i, 1), 2)
            End If
        Next i
        
        c.Value = a
        c.EntireRow.Hidden = True
        rng.EntireRow.Hidden = False
    Application.ScreenUpdating = True
End Sub

بارك الله فيك استاذ ياسر على مرورك العطر على الموضوع الكود جيد لكن لا اعلم ما سبب عدم عمله في الملف بحيث عند كتابة الرقم 1مثلا في التاكس بوكس لا يفلتر وبارك الله فيك

لأن الكود في الملف الأصلي يتعامل مع النصوص - هذا والله أعلم
جرب الكود الذي أرفقته لك على أعمدة مختلفة (نصوص وأرقام) وسيعمل معك إن شاء الله