Zeilen löschen vor 01.01.2021

Sub alle Zeilen vor dem 01.01.2021 aus der Tabelle löschen.

Sub AutoFilter_Date_Examples()
'Examples for filtering columns with DATES
Dim lo As ListObject
Dim iCol As Long
Sheets("Tabelle1").Activate
'Objekt
Set lo = ActiveSheet.ListObjects("Tabelle1")
'Spalte
iCol = lo.ListColumns("Datum").Index
'Clear Filters
lo.AutoFilter.ShowAllData
With lo.Range
'    'nach einem Single Date filtern funktioniert
'    .AutoFilter Field:=iCol, Criteria1:="01.01.2021"
'Vor dem 01.01.2021 klappt nicht !! Der Autofilter ist aber richtig gesetzt, wenn ich manuell auf Ok klicke, dann wird die Tabelle richtig gefiltert.
.AutoFilter Field:=iCol, Criteria1:="
Danke im Voraus !

Grüße