昨日の日付を抽出します。
[ポイント]
'昨日の日付は「Date-1」

Sub sample()

'昨日の日付は「Date-1」
Cells(4, "C").Value = Date - 1


Range("B9:D19").AdvancedFilter Action:=xlFilterInPlace, _
CriteriaRange:=Range("C3:C4"), Unique:=False



End Sub