No question here, just a procedure for the archive.
Search critera:

Select only visible cells in a selected range
manually select just the visible cells in a subset of the whole page
Prompt target to select specific specifically range and only visible cells


Sub SelectOnlyVisibleCellsInSelectedRange()

'Selects only the visible cells in a selected range.
On Error Resume Next
Dim MyRange As Range
Set MyRange = Application.InputBox( _
prompt:="Select Range of Cells to Evalute", Type:=8)
MyRange.SpecialCells(xlCellTypeVisible).Select

End Sub