Reports

I don't know why it doesn't work, but you can filter with the macro below.

Microsoft® Excel® for Microsoft 365 MSO (バージョン 2510 ビルド 16.0.19328.20190) 64 ビット

Sub a()
    Dim dteDate As Date
    dteDate = DateSerial(2013, 10, 1)
    ActiveSheet.Range("$A$2:$P$2173").AutoFilter Field:=13, Criteria1:=Array( _
        "="), Operator:=xlFilterValues, Criteria2:=Array(1, CStr(dteDate))
End Sub

Before filtering

enter image description here

After filtering

enter image description here

79820099