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