Sub FindFilterRow()
Dim w As Worksheet
Dim currentFiltRange As Range
Set w = Worksheets("Sheet1")
If w.AutoFilterMode Then
Set currentFiltRange = w.AutoFilter.Range
Number_of_rows = currentFiltRange.Rows.Count
For i = 2 To Number_of_rows
If Not currentFiltRange.Resize(1).Offset(i - 1, 0).EntireRow.Hidden Then
MsgBox "First row of filter is row number " & currentFiltRange.Row + i - 1
Exit For
End If
Next
End If
End Sub