Function FoundSecond(WhatFound As String) as Long
Dim found As Range
Set found = Worksheets( 1 ).Range("a1:a10").Find(WhatFound, LookIn:=xlFormulas)
If found Is Nothing Then
  FoundSecond =  0 
  Exit Function ' emergency exit
End If
Set found = Worksheets( 1 ).Cells.FindNext(After:=found)
FoundSecond = found.Row
End Function

' Простой код, который "должен" найти строку последнего вхождения двойки в заданном диапазоне, сваливается в бесконечный цикл
Dim r As Range,f As Range, mRow&

Worksheets( 1 ).Cells( 1 , 1 ) =  1 
Worksheets( 1 ).Cells( 2 , 1 ) =  2 
Worksheets( 1 ).Cells( 3 , 1 ) =  3 
Set r = Worksheets( 1 ).Range("A1:A3")

Set f = r.Find( 2 , ,xlValues, xlWhole)
Do Until f Is Nothing
  mRow = f.Row
  Set f = r.FindNext(f)
Loop
Debug.Print mRow

Dim b As Long

' ищем строку "2"
b = FoundSecond("2")

If b =  0  Then
' не нашли 
   ' ... действия в случае неудачного поиска
Else
' нашли
   ' ... действия в случае удачного поиска
End If