BDEXTRAER ... Matricial

Lo de las matrices no domina para nada, pero con esta pequeña macro creo que te funcionara:
Notas al respecto: en negrita te he puesto los datos que tendrías que cambiar y poner los que te correspondan para tu hoja. En el ejemplo que yo me he fabricado, en la columna A esta la fecha, en la B el Nombre y en la C el importe
, en la celda J10, es en la que pongo el valor a buscar (es la fecha que buscara en la columna A y me coloca los datos en las columnas K:L

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$J$10" Then
        If Range("k10")  "" Then
            If Range("k11") = "" Then
                Range("k10:l10") = ""
            Else
                Range("k10:l10").Select
                Range(Selection, Selection.End(xlDown)) = ""
            End If
        End If
        f = 10
        With Range("a:a")
            Set c = .Find(Range("j10"), LookIn:=xlFormulas)
            If Not c Is Nothing Then
                firstAddress = c.Address
                Do
                    Range("k" & f) = c.Offset(0, 1).Value
                    Range("l" & f) = c.Offset(0, 2).Value
                    f = f + 1
                    Set c = .FindNext(c)
                Loop While Not c Is Nothing And c.Address  firstAddress
            End If
        End With
    End If
End Sub

Si quieres puedes descargarte un fichero de ejemplo que he colgado en la siguiente dirección
El nombre del fichero es EJEMPLO LOCALIZAR EN MATRIZ

Adjunto el fichero, pues la macro ... no parece funcionar correctamente .
¿Dónde fallo ...?
Gracias