Range("B1").Offset(1, 0).Select 'Excludes Header in Selection
    'Selecting the All Visible Cells in Column B
    Range(Selection, Selection.End(xlDown)).Select
    'Selecting the First Visible Cells in Column B
    Selection.SpecialCells(xlCellTypeVisible).Cells(1).Select
    'MsgBox ActiveCell.Value

Reference:

https://excelkingdom.blogspot.com/2015/02/how-to-select-first-visible-cell-in.html