gefilterte Listbox

Hallo Experten,
folgendes Problem :
ein Tabellenblatt soll nach einem gewissen Zeitraum gefiltert werden und diese
gefilterten Werte dann in eine Listbox übertragen werden. Funktioniert leider
nicht, bin am Verzweifeln. Für Eure Hilfe bedanke ich mich schon mal im Voraus.
Liebe Grüße
Dirk

Private Sub Image1_Click()
'Application.Visible = False
Application.ScreenUpdating = False 'flackern abschalten
Dim AppExcel  As Object
Dim arrWerte  As Variant
With ThisWorkbook.Sheets("Tabelle1")
.Cells.Select
Selection.AutoFilter
.Range("$A$1:$ZZ$65536").AutoFilter Field:=5, Criteria1:= _
(">=" & UserForm1.TextBox1.Value), Operator:=xlAnd, Criteria2:=("<=" & UserForm1. _
TextBox2.Value)
ListBox1.RowSource = "A1:ZZ65536"
Application.ScreenUpdating = True
Selection.AutoFilter
End With
End Sub