.FindNext не работает после функции .Find (excel vba)

Я пытаюсь использовать.Find а также.FindNext искать через один столбец данных. Сначала мне нужно найти первую ячейку, содержащую значение «Всего». Ячейка, к которой я пытаюсь добраться, является третьей ячейкой ПОСЛЕ «Всего» ячейка для хранения значения "Tech". Точно известно, что ячейки (1, 1) не содержат «Tech». или "Всего".

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

Приблизительно в 50% случаев, когда я запускаю этот код, меня останавливает ошибка несоответствия типов в строке, начинающейся сSet ResultRng =, В остальное время код выполнялся до конца, но результаты выглядят так, как будто последние две строки кода были полностью проигнорированы.

Я подозреваю, что ответ здесь довольно элементарный, но я новичок в Excel vba, и никакие ресурсы, которые я нашел до сих пор, не ответили на этот вопрос. Пожалуйста помоги!

Ответы на вопрос(2)

Ваш ответ на вопрос