Hallo Vorerst schon mal danke hier noch mal der Code ich habe leider zu spät gemerkt wie scheiss der drin steht und wusste nicht wie ändern.

Application.ScreenUpdating = False
With Worksheets("Master")
.Range("A:AAA").AutoFilter Field:=9, Criteria1:="=Bonn", _
Operator:=xlOr, Criteria2:="=Bonn"
   
If .Cells(Rows.Count, 1).End(xlUp).Row > 1 Then
   
   For i = 10 To 21 ' J bis U
      With Worksheets("Verteiler_Vorlage")
      .Visible = True
      .Copy After:=Sheets(Sheets.Count)
      .Visible = False
      End With
 
NEXT
 
Else
Application.ScreenUpdating = False
With Worksheets("Master")
.Range("A:AAA").AutoFilter Field:=9, Criteria1:="=Berlin", _
Operator:=xlOr, Criteria2:="=Berlin"
   
If .Cells(Rows.Count, 1).End(xlUp).Row > 1 Then
   
   For i = 10 To 21 ' J bis U
      With Worksheets("Verteiler_Vorlage")
      .Visible = True
      .Copy After:=Sheets(Sheets.Count)
      .Visible = False
      End With
 
NEXT
 
With Worksheets("Master")
.Range("A:AAA").AutoFilter Field:=9, Criteria1:="=Augsburg"
 If .Cells(Rows.Count, 1).End(xlUp).Row > 1 Then
   For i = 17 To 19 ' Q bis S
      With Worksheets("Verteiler_Vorlage")
      .Visible = True
      .Copy After:=Sheets(Sheets.Count)
      .Visible = False
      End With
					
Also nochmal:
Wenn Filter 1 Daten dann laufen, Dann Filter 2 wenn Daten dann laufen dann Filter 3 laufen
Wenn Filter 1 LEER dann Filter 2 Daten dann laufen dann Filter 3 laufen			
Wenn Filter 1 Daten dann Laufen wenn filter 2 Leer dann Filter 3 laufen.

Filter 3 hat zu 99% immer Daten
Und Filter 1 und Filter 2 können Daten haben 1 davon immer.

Wie schon erwähnt wenn alle Filter Daten haben läuft das prima.
Es spiest sich nur wenn einer der beiden Filter 1 oder Filter 2 keine Daten haben dann läuft Filter 3 nicht.

In der jetzigen Reihenfolge läuft Filter 3 nicht wenn Filter 2 keine Daten hat.

Gruß
Thomas und vielen Dank