Excel -Reihen zählen

Application.WorksheetFunction.Subtotal(3, Range("A2:A500000"))
Embarrassed Eel