Find con un Loop

[CECILIO]

Buenas Tardes a todos

Necesito de su valioso ayuda
Estoy desarrollando una rutina pero , me he atorado y no encuentro la forma de resolverlo , tengo el archivo llamado Nom 6 Ejemplo de la cual ocupo las siguientes hojas:
-Hoja1
-CAT

quisiera ejecutar este macro iniciando desde Hoja1 Celda BC3 para que se ejecute mientras la celda activa ("BC3") tenga datos y la columna al lado se encuentre vacío ("BB3"),busque el dato Hoja1 de la columna BC ,relice la búsqueda en la hoja CAT columna "D" y si lo encuentra me devuelva el código de la columna "B" de la hoja CAT en este caso se cumple las condiciones a partir de la fila BC14

y si no lo encuentra se siga con la siguiente fila Bc15, pero la verdad ya me bloquee y no encuentro la forma de solucionarlo, de antemano Gracias por su ayuda

Ejemplo.xlsm

[CECILIO]

Ejemplo.xlsm