Use VBA in Excel to find the row number of the last given value

In the last two days, I want to use VBA to write a macro for processing something. I am not very familiar with the object model and method of Excel. It is really hard to write it. I will back up it here for later search. Code
Sub Test_click ()

Dim Namerange As Range, tmprange As Range
Dim Findaddress As   String
Dim Finalrow As   Integer

Set Namedrange = Range ( " Testclick " )


' The first method
Set Tmprange = Namedrange. Find (what: = " 34534 " )

Findaddress = Tmprange. Address

If   Not Tmprange Is   Nothing   Then


Do
Finalrow = Tmprange. Row
Set Tmprange = Namedrange. findnext (tmprange)

' Msgbox tmprange. Row

Loop   While   Not Tmprange Is   Nothing   And Findaddress <> Tmprange. Address

End   If

Msgbox Finalrow

' The second method
Set Tmprange = Namedrange. Find (what: = " 345345 " , After: = Namedrange. cells ( 1 ), Lookin: = Xlvalues, lookat: = Xlwhole, searchorder: = Xlbycolumns, searchdirection: = Xlprevious)

Msgbox Tmprange. Row

End sub