Error en el método Range de Objeto Worksheet

Buenas noches, 

                             estaba intentando adaptar una solución que me dio @Haplox, hace bastante tiempo, junto con otra de @Antonipara una pequeña base de inventario, pero me da error en esta parte

Set encontrado = wsDestino.Range("b2:b" & uFd).Find(Celda)

y llevo un par de días y no doy con ello, imagino que es un problema del Rango definido, pero me pierdo.

Cuando le doy a depurar, observo que "encontrado" es = a nada, también que uFd = a 1048577, no se si esta recorriendo toda la columna hasta el final del libro.

También querría ignorar, ocultar o que no me cargara ciertas filas en mi listbox, del formulario inventario.  Había pensado en añadir una columna al principio de la hoja inventario con True o false, para que si es false no me los cargue, no se si hay una manera mas sencilla de hacerlo

datos.xlsx Libro inventario.xlsm