Buscar dato .find y variable SET (ElsaMatilde)

Hola Elsa.

Disculpa las molestias, el dia de ayer me ayudaste con una búsqueda de datos, y me recomendaste utilizar la variable SET para que buscara el dato en una sola columna.

Estuve continuando trabajando en mi proyecto pero me di cuenta que buando hay datos duplicados, no se pasa al siguiente dato, se queda "estancado" en el primero que encuentra. Esta es la función que me habías enseñado:

Set busco = Range("H:H").Find(búsqueda, LookIn:=xlValues, LookAt :=xlWhole)
if not busco is nothing then
MsgBox "Lo encontré"
dato1 = busco.offset(0,1).value 'te devuelve lo que se encuentra en col I
Else
MsgBox "NO lo encontré"
End If

Y te repido, si hay registros repetidos, solo que "estanca" en el primero que encuentra y no se pasa al siguiente cuando lo vuelvo a ejecutar.

¿Es posible corregir esto?