You can use the SpecialCells method to find the visible rows in an
autofilter. Maybe you can build something based on this example:


Sub a()
Dim Cell As Range
Dim Counter As Long
For Each Cell In Range("_FilterDatabase") _
.Columns(1).SpecialCells(xlCellTypeVisible)
Counter = Counter + 1
If Counter 2 Then MsgBox Cell.Address
Next
End Sub

Excel always assigns the "_FilterDatabase" range name to a autofilter list.
The " 2" is to skip (1) the headings and (2) your blank row.


--
Jim Rech
Excel MVP