Søgning efter sidste udfyldte celle i en kolonne

Hej alle

Jeg har et lille problem her.. Jeg har en liste af koder som står listet op nedad i kolonne A i et excelark. Det vides ikke hvor mange koder der er nedad, dvs makroen skal søge nedad i listen, men kun indtil sidst udfyldte celle.. Hvordan gør jeg det?

Den makro jeg selv har lavet søger hele kolonne A, men da der kun pt. er knap 2000 koder nedad, så er det lidt overkill at den skal søge i samtlige 65500 rækker - altså såfremt den ikke finder koden på listen..

Kan nogen hjælpe med at få den til at virke som beskrevet ovenfor?

Min makro er her neden for:

MVH
Kenneth
------------------------------------------------------------

main()

Function main()
    Dim ExcelApp, sfk, row, lastrow

    Set ExcelApp = CreateObject("Excel.Application")

        ExcelApp.Workbooks.Open("H:\S.koder.xls")
    ExcelApp.Sheets("s.koder").Select

    sfk = InputBox("Tast s.kode")
   
    lastrow = 65536
   
    'Gennemløber Excelarket
    For row = 2 To lastRow
        If(sfk = Trim(ExcelApp.Cells(row,1).Value)) Then
            MsgBox ExcelApp.Cells(row,2).Value
            Exit For
        End If
    Next

    ExcelApp.Quit
End Function