Teile aus Tabellen in ein anderes Tabellblatt kopi

Ich will bestimmte Tabellenwerte in ein anderes Arbeitsblatt kopieren, die Selektion bekomme ich noch hin aber der Kopiervorgang in ein anderes Sheét geht einfach nicht

Dim var As Variant
Do While Not IsError(var)
var = Application.Match("In Bearbeitung", Columns(1), 0)
If Not IsError(var) Then Rows(var).Select
Loop
dann wollte ich so vorgehen:
Cells.Select
Selection.Columns.AutoFit
Selection.Copy
Sheets.Add.Name = "An 1.Level"

Kann mir jemand helfen, wie es einfacher geht
Eigentlich ist es doch nur ein Teil der Tabelle ausschneiden und in ein neues Arbeitsblatt einfügen, aber dynamisch, deshalb kann ich von vornerein den Range ja nicht festlegen