For que comience en la ultima celda en blanco de un rango

necesito que este buscarv a través de una macro corra desde la ultima celda en blanco, para que no recorra nuevamente lo que ya encontró con anterioridad, este es el código:

Sub encontrarCodgio()
Windows("CONTROL_CRUZADO_LBTR.xlsx").Activate
Sheets("BASE").Select
Set H1 = Sheets("BASE")
Set H2 = Sheets("CÓDIGO BANCO")
'EL for debería comenzar en la ultima celda en blanco del la fila D
For i = 1 To H1.Range("C" & Rows.Count).End(xlUp).Row
r = Application.VLookup(H1.Cells(i, "C"), H2.Range("A:C"), 2, False)
If IsError(r) = True Then Cells(i, "D") = "" Else Cells(i, "D") = r
Next
End Sub

Saludos