Jak w Excelu odczytać numer ostatniego wiersza?

Załóżmy, że w kolumnie A mam np. listę adresów e-mail, na które chcę wysłać wiadomość. Pojawia się pytanie: jak szybko sprawdzić ile mam adresów e-mail. Oto prosta funkcja, która dla danej kolumny zwraca numer ostatniego wiersza:

Function OstatniWiersz(kolumna As String) As Long
    OstatniWiersz = Cells(Rows.Count, kolumna).End(xlUp).Row
End Function