nach best. Wörtern auswählen und in ein neues shee

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