You can programmtically create an AutoFilter, then select the matching values:
Dim ws As Worksheet: Set ws = ActiveSheet
With ws
.AutoFilterMode = False
.Range("1:1").AutoFilter
.Range("1:1").AutoFilter field:=2, Criteria1:="=Saturday", Operator:=xlAnd
With .AutoFilter.Range
On Error Resume Next ' if none selected
.Offset(1).Resize(.Rows.Count - 1).Columns(2).SpecialCells(xlCellTypeVisible).Select
On Error GoTo 0
End With
.AutoFilterMode = False
End With