¿Cómo Determino numero de fila con datos filtrados?

[Hola

No estoy seguro pero creo que te refieres a algo como esto:

Sub ContarRegistrosVisibles()
Dim rango As Range
Set rango = ActiveSheet.AutoFilter.Range
MsgBox rango.Columns(1).SpecialCells(xlCellTypeVisible).Count - 1 _
    & " Registros visibles de un total de " & rango.Rows.Count - 1
Set rango = Nothing
End Sub