Problemas con vlookup en vba

Tengo el siguiente fragmento de código en vba:

Set rango_renting = Worksheets("Flota Renting").Range("A2:H" & WorksheetFunction.CountA(Range("A:A")))

Set rango_propios = Worksheets("Flota Propia").Range("A2:F" & WorksheetFunction.CountA(Range("A:A")))

Set rango = Range("C2:C" & WorksheetFunction.CountA(Range("A:A")))
Set rango2 = Range("D2:D" & WorksheetFunction.CountA(Range("A:A")))

For Each celda In rango.Cells
If IsError(Application.VLookup(celda, rango_renting, 3, False)) = True Then
Cells(rango.Row, "D") = Application.VLookup(celda, rango_propios, 2, False)
Else
Cells(rango.Row, "D") = Application.VLookup(celda, rango_renting, 3, False)
End If
Next

Al momento de ejecutar la macro donde sólo imprime el valor de la primera celda Buscada (C2) y deja en blanco las demás. (he intentado sustituyendo applicatiob.vlookup por worksheetfunction.vlookup y genera error). La verdad, es que no sé donde está el problema.

De Antemano, gracias por la ayuda!