تفضل هذا الكود للخبير الفاضل بن علية حاجي
Sub SortData()
Range("b10:t1000").Sort Key1:=Range("C9"), Order1:=xlAscending, Header:= _
xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("b10:t1000").Sort Key1:=Range("L5"), Order1:=xlAscending, Header:= _
xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
' xlDescending
End Sub