How to Select First Visible Cell in a Column of a Filtered Range

Macro to Select the First Visible Cell in a Column in a Filtered Range
Sub Slect_First_sVisible_Cell_In_Filtered_Range()
Dim Rng As Variant
    
    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
    
End Sub

Brief Explanation:
Suppose we have a data , where we have applied the filter on < Column A > then we want to select the first Visible cell in <Column B> excluding the header , as shown below ,we can use the above macro :

Thanks, Tamatam