Macro para búsqueda de una data según voy escribiendo en una celda

Primero lo que quieres que el texto se busque en otra hoja a medida que lo vas texteando en una hoja de Excel no es posible (al menos yo lo he intentado y no he encontrado más que algo aproximado) por la simple razón que necesitas salirte de la celda o dar enter para se que active la macro mientras estés texteando la macro no se activara, la macro lo que hace es leer el valor de la celda e2 de la hoja 2 y después de dar Enter busca en la hoja 1 todo text que en este caso tenga la letras bat y luego te crea una copia en la hoja 2, en la segunda imagen esta la estructura de la base de datos que esta en la hoja 1

y esta es la macro que puse en el modulo VBA de la hoja2 

Option Base 1
Private Sub Worksheet_Change(ByVal Target As Range)
valida = Not Intersect(Target, Range("c2")) Is Nothing
valor = Target
If valida Then
    Set H1 = Worksheets("HOJA1")
    Set H2 = Worksheets("HOJA2")
If valor = Empty Then GoTo SAL
Set TABLA = H1.Range("B2").CurrentRegion
With TABLA
    R = .Rows.Count: C = .Columns.Count
cuenta = WorksheetFunction.CountIf(.Columns(2), "*" & valor & "*")
    ReDim MATRIZ(cuenta, C)
    X = 1
    For I = 1 To R
        VALOR2 = .Cells(I, 2)
         If VALOR2 Like "*" & UCase(valor) & "*" Then
            For J = 1 To C
                MATRIZ(X, J) = .Cells(I, J)
            Next J
            X = X + 1
        End If
    Next I
End With
With H2.Range("B6")
    .CurrentRegion.Clear
    Range(.Resize(cuenta, C).Address) = MATRIZ
    .CurrentRegion.EntireColumn.AutoFit
    Range("c3") = cuenta
End With
Erase MATRIZ
Set H1 = Nothing: Set H2 = Nothing
Set TABLA = Nothing
SAL:
End If
End Sub