Sub Tri()
CurrentSheet = ActiveWorkbook.ActiveSheet.Name
Range("B6:E1000").Select
ActiveWorkbook.Worksheets(CurrentSheet).Sort.SortFields.Clear
ActiveWorkbook.Worksheets(CurrentSheet).Sort.SortFields.Add Key:=Range("E7:E1000"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets(CurrentSheet).Sort
.SetRange Range("B6:E1000")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
[A1].Select
End Sub