Gefilterte Daten in neues Tabellenblatt übertragen

Sub GruppenNummer()
Dim TB As Worksheet
Dim Gruppe As Integer
Application.ScreenUpdating = False
Set TB = ActiveSheet

For Gruppe = 1 To 100
Range("A2").Select ' wählt Zelle A2 aus
ActiveCell.CurrentRegion.AutoFilter
Selection.AutoFilter Field:=2, Criteria1:=Gruppe
Columns("A:L").Copy

If IsEmpty(ActiveSheet.Rows(3)) Then
MsgBox "Nächste Gruppe"
End If


Worksheets.Add before:=Worksheets(1)
ActiveSheet.Paste
Range("A2").Select
ActiveSheet.Name = Gruppe
TB.Range("A2").AutoFilter
Worksheets(Gruppe).Select
Range("A2").Select
Columns("A:L").AutoFit

Next

Application.ScreenUpdating = True

End Sub