今日の日付を抽出します。
[ポイント]
Date関数を使う。

Sub sample()


'今日の日付はDate関数を使う。
Cells(4, "C").Value = Date


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


End Sub