mal wieder brauche ich eure hilfe.
Wie kann man diesen aufgenommenen Code verkleinern und die Zeilen sortieren nicht nach Bereich sondern bis ganz unten. Von A3 bis Flexible
Sub Makro3()
' Makro3 Makro
Range("A3:I4444").Select
ActiveWorkbook.Worksheets("Test").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Test").Sort.SortFields.Add Key:= _
Range("A3:A4444"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Test").Sort
.SetRange Range("A2:I4444")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
Lieben Dank erst einmal.Leibe Grüße Siggi