Problemas para buscar en tuplas similares con vlookup vba

Hola!

Tengo el siguiente problema con una macro:

Necesito buscar algunos datos en una base de datos pero esta puede tener filas parecidas, es decir, un mismo "nombre" puede estar varias veces pero con valores distintos (en excel).

Entonces, desde otra hoja excel que viene con el "nombre" y la fecha de una transacción, quiero extraer algunos datos para ese nombre para esa fecha en particular (el "nombre" puede haber cambiado de área dentro de la empresa en un momento dado, por eso es importante poder comparar las fechas). Tengo este código dentro de la macro:

If IsError(Application.VLookup(celda.Value, rango2, 5, False)) = False Then
If Application.VLookup(celda.Value, rango2, 22, False) <= Cells(celda.Row, "K") And Application.VLookup(celda.Value, rango2, 23, False) >= Cells(celda.Row, "K") Then
Cells(celda.Row, "G") = Application.VLookup(celda, rango2, 5, False)
Cells(celda.Row, "H") = Application.VLookup(celda, rango2, 20, False)
End If
Else
Workbooks("FLOTA RENTING - PROPIA OPERATIVA 04-02-2013.xlsx").Activate
Worksheets("Flota Propia Operativa").Select
z = WorksheetFunction.CountA(Range("A:A"))
Set rango3 = Workbooks("FLOTA RENTING - PROPIA OPERATIVA 04-02-2013.xlsx").Worksheets("Flota Propia Operativa").Range("A2:S" & z)
Range("R2:S" & z).NumberFormat = "dd/mm/yyyy"
Workbooks(nombre_archivo).Activate
If Application.VLookup(celda.Value, rango3, 18, False) <= Cells(celda.Row, "K") And Application.VLookup(celda.Value, rango3, 19, False) >= Cells(celda.Row, "K") Then
Cells(celda.Row, "G") = Application.VLookup(celda.Value, rango3, 3, False)
Cells(celda.Row, "H") = Application.VLookup(celda.Value, rango3, 16, False)
End If
End If

Al ejecutarlo, para los casos "repetidos" los campos que necesito extraer quedan en blanco, ¿Cómo puedo solucionarlo?

De antemano, gracias !

Javier.