ActiveSheet.ListObjects.Range.AutoFilter field:=7, Criteria1:="=" & enddate code example

Example: VBA to Autofilter

RangeObjectTableToFilter.AutoFilter Field:=ColumnCriteria, Criteria1:="ComparisonOperator" & RangeObjectCriteria.Value