Code verbessern/verkürzen

Sub Vorbereitung()
Columns("A:A").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="1**", Operator:=xlAnd, _
Criteria2:="2**"
Range("A7").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.EntireRow.Delete
Columns("A:A").Select
Selection.AutoFilter
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 1), Array(7, 1)), TrailingMinusNumbers:=True
Rows("1:1").Select
Selection.Delete Shift:=xlUp
Range("A1").Select
End Sub