Public Sub Test()
Dim IRange As Range
For Each IRange In Range("A:A")
If Not IRange.EntireRow.Hidden Then
Debug.Print "Строка выбрана автофильтром"; IRange.Row
End If
Next IRange
End Sub