VBA macro for selecting highest visible cell

I have a lot of macros that use filters. Each time I run a report the highest visible cell that I want to select is in the 2nd visible row, but the actual row number will change. For instance, sometimes it's row 7 and sometimes it's 15. How can I program the macro to select the highest visible cell (besides the headers). Here's my attempt:

Range("B2").Select
Do Until ActiveCell.SpecialCells(xlCellTypeVisible) = True
ActiveCell.Offset(1, 0).Select
Loop