Cuenta de filas de Excel

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