VBA Filter

Hallo,
das folgende Makro sollte sollte so filtern, dass nur die Datümer bis zu einem bestimmten Datum stehen bleiben. Es werden aber alle Daten weg gefiltert. Wo liegt der Fehler?
Option Explicit
Sub TermineDrucken()
Dim wksTerLis As Worksheet
Dim LzA As Long
Dim BisDatum As Long
Set wksTerLis = Worksheets("TerminListe")
BisDatum = Evaluate("=DATE(YEAR(TODAY()),MONTH(TODAY())+3,0)") 'Datum Monatsende, von heute an 2 volle Monate
LzA = Application.Max(6, wksTerLis.Cells(Rows.Count, 1).End(xlUp).Row)
Application.ScreenUpdating = False
wksTerLis.Rows("5:5").Select
Selection.AutoFilter
wksTerLis.Range("$A$5:$F$" & LzA).AutoFilter Field:=2, Criteria1:= _
"<=" & BisDatum & ", Operator:=xlAnd"
End Sub