Sub sortieren()
ActiveWorkbook.Worksheets("L").AutoFilter.Sort.SortFields.Add2 Key:=Range( _
"C2:C1000"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("L").AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub