Estoy tratando de usar.Find y.FindNext Para buscar a través de una sola columna de datos. Primero necesito encontrar la primera celda que contenga el valor "Total". La celda a la que estoy tratando de llegar es la tercera celda DESPUÉS de que la celda "Total" contenga el valor "Tecnología". Se sabe con certeza que las Células (1, 1) no contienen "Tecnología" o "Total".

Dim FirstTotal As Range
Dim SearchRng As Range
Dim ResultRng As Range
Set SearchRng = Range("A:A")

Set FirstTotal = SearchRng.Find(What:="Total", After:=Cells(1, 1), SearchDirection:=xlNext)
Set ResultRng = SearchRng.Find(What:="Tech", After:=FirstTotal, SearchDirection:=xlNext)
SearchRng.FindNext().Activate
SearchRng.FindNext().Activate

Aproximadamente el 50% de las veces que ejecuté este código, me detuvo un error de falta de coincidencia de tipo en la línea que comienza conSet ResultRng =. El resto del tiempo, el código se ha ejecutado hasta el final, pero los resultados parecen haber ignorado por completo las dos últimas líneas de código.

Sospecho que la respuesta aquí es bastante elemental, pero soy bastante nuevo para sobresalir vba y ningún recurso que he encontrado hasta ahora ha respondido a esto. ¡Por favor ayuda!