Zoekfunctie stoppen op einde van excelblad

[Killerclown]

Ik heb een formulier waarmee ik in excel kan zoeken adhv een invoervak TxtStaalnummer
Als je dan op de knop "Zoeken" drukt, zoekt hij op het blad de nummer die je hebt ingegeven in het invoervak.
Nu zou ik willen dat de zoekfunctie stopt op het einde van de laatste rij die ingevuld is aangezien als je nu op zoeken blijft klikken hij gewoon terug naar de eerste cel springt en nogmaals het bestand doorloopt.

Ik heb volgende werkende code maar daarbij spring ik terug naar de eerste cel

Set RangeObj = Cells.Find(What:=TxtStaalnummer.Value, After:=ActiveCell, LookIn:=xlValues, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=False)
       
   If RangeObj Is Nothing Then MsgBox "Geen verdere nummers gevonden!" Else RangeObj.Activate
   
    Label3.Caption = ActiveSheet.Cells(ActiveCell.Row, 1).Value
    Label10.Caption = ActiveSheet.Cells(ActiveCell.Row, 2).Value
    Label12.Caption = ActiveSheet.Cells(4, ActiveCell.Column).Value
    Label14.Caption = ActiveCell.Value

Ik had er nu dit van gemaakt maar dat werkt niet. De functie zoekt niet.
Weet iemand waarom of wat ik eraan moet veranderen om het te laten werken?

   Set oSht = ActiveSheet

   lastRow = oSht.Range("A" & Rows.Count).End(xlUp).Row

   Set RangeObj = oSht.Range("A1:A" & lastRow).Find(What:=TxtStaalnummer.value, LookIn:=xlValues, _
   LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
   MatchCase:=False, SearchFormat:=False)

   If Not RangeObj Is Nothing Then
        ' do stuff
   If RangeObj Is Nothing Then MsgBox "Geen verdere nummers gevonden"
   end if

Alvast dank.