按日期过滤：今天之前 + 2 天

Question

我有一个信息表，每一行在 A 列中都有一个日期。

如何过滤表格以仅显示今天 + 2 天（工作日）之前的所有内容？

• 表头在第 11 行，数据从第 12 行开始
• 我在单元格 D2 中有 =Today()

Sub Datefilter()

Dim MyVal As Date
Dim ORTable As ListObject

MyVal = Application.WorksheetFunction.WorkDay(Range("D2").Value, 2)
Worksheets("Open Report").Range(A12 - A9999).AutoFilter Field:=1, Criteria1:="=<" & MyVal

End Sub