Estou tentando usar.Find e.FindNext para pesquisar em uma única coluna de dados. Primeiro preciso encontrar a primeira célula contendo o valor "Total". A célula que estou tentando acessar é a terceira célula APÓS a célula "Total" para conter o valor "Tech". Sabe-se com certeza que as Células (1, 1) não contêm "Tech" ou "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

Cerca de 50% das vezes que executei este código, fui interrompido por um erro de incompatibilidade de tipo na linha que começa comSet ResultRng =. No restante do tempo, o código foi totalmente executado, mas os resultados parecem que as duas linhas finais de código foram completamente ignoradas.

Eu suspeito que a resposta aqui é bem elementar, mas eu sou bem nova no excel vba e nenhum recurso que eu encontrei até agora respondeu isso. Por favor ajude!