Sub Verteile()
Dim i As Integer
Application.ScreenUpdating = False
With Tabelle1
   For i = 10 To 22 
      Worksheets.Add After:=Sheets(Sheets.Count)
      .UsedRange.Range("A:D").Copy ActiveSheet.Cells(1)
      .UsedRange.Columns(i).Copy ActiveSheet.Cells(1, 5)
      ActiveSheet.Name = Cells(1, 5)
   Next
End With
End Sub

Dieser Code Verteilt mir die Grunddaten der Spalten A bis D und jeweils die Spalte 10 bis 22 in ein eigenes Sheet und 
benennt es nach dem Header der jeweiligen Spalte 10-22. Also 12 Sheets

Nun steht aber in Spalte 23 ein Kriterium

Und dieser Code soll nun wenn in Spalte 23 in einer Zeile A oder B steht genauso funktionierern wie bisher, ALSO 12 Sheets
und wenn in Spalte 23 C steht dann soll das selbe Makro laufen aber nur die Spalten 19 bis 22 in neue Sheets schreiben und an den
Tabellen Namen +C daranhängen.

Gruß
Matthias