Sub macro_tri()
Application.ScreenUpdating = False
With Worksheets("prod").Sort
.SortFields.Clear
.SortFields.Add Worksheets("prod").Range("H6:H1000"), xlSortOnValues, xlAscending, xlSortNormal
.SortFields.Add Worksheets("prod").Range("M6:M1000"), xlSortOnValues, xlAscending, xlSortNormal
.SetRange Worksheets("prod").Range("A5:V1000")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("K6:K1000").ClearContents
Application.ScreenUpdating = True
End Sub