Finde sidste række i et regneark

Nedenstående funktion finder den sidste række med data i kolonne A:

Function LastRowA() As Integer
    LastRowA = Range("A65536").End(xlUp).Row
End Function

Ups. Funktionen skal selvfølgelig returnere en LONG (ellers virker den jo ikke på de nederste rækker)

Function LastRowA() As Long
    LastRowA = Range("A65536").End(xlUp).Row
End Function

Du kan selvfølgelig også bare snuppe kernen af funktionen og bruge den direkte i dit udtryk:

Range("A7:B" & Range("A65536").End(xlUp).Row).Select

Tja, det er vist den rigtige mulighed. Derved undgår man at få rod i systemet, hvis der er blanke felter i kolonne A. Hvis der ikke er blanke felter i kolonne a, så kan man benytte

    Range("A7").End(xlDown)

Den finde den sidste celle med en værdi i kolonne A.

Hvis det område du skal benytte, kun består af Kolonne B og B og der ingen data er i tilstødende kolonner, så kan man med held benytte
   
    Range("A7").CurrentRegion


Som du kan se, så er der mange muligheder...benyt den der passer dit behov.

Point til sjap - tak for hjælpen.