Loop - Kein Tabellenblattwechsel in vba

Sheets("Kunde").Select

Laufzeitfehler '9':
Index außerhalb des gültigen Bereichs

Sub Kundenausdruck()
' Kundenausdruck Makro
Application.ScreenUpdating = False
Dim Kunde As String
For i = 1 To 6
If i = 1 Then Kunde = "xxx"
If i = 2 Then Kunde = "xxx"
If i = 3 Then Kunde = "xxx"
If i = 4 Then Kunde = "xxx"
If i = 5 Then Kunde = "xxx"
If i = 6 Then Kunde = "xxx"
Sheets("Kundenausdruckliste").Select
ActiveSheet.ListObjects("EST").Range.AutoFilter Field:=5, Criteria1:= _
"Kunde"
Range("EST").Select
Selection.Copy
Sheets("Kunde").Select
Range("B4").Select
ActiveSheet.Paste
Sheets("Kundenausdruckliste").Select
ActiveSheet.ListObjects("EST").Range.AutoFilter Field:=5
Range("D35").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = ""
Sheets("Startseite").Select
Next i
Application.ScreenUpdating = True
End Sub