I need to filter Data with Date ONLY from Current Quarter onward, excluding all data with previous Quarter and year.........

```
Sub DateFilter() 
    Sheets("Base Sheet").Range("A1:CS1").AutoFilter Field:=36, _
        Criteria1:="<" & ThisQuarter 
End Sub

```