Excel/VBA: Letze Zeile mit Wert ermitteln

Der Methode Cells wird hier der zu untersuchende Bereich übergeben: Rows.Count = 65536 und die Spalte 1 = A

MsgBox(ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row)