VBA/Excel/Access/Word/Excel/Excel Sort

Data Lists

 
Sub sortDemo()
     With ActiveWorkbook.Worksheets("Sheet1").sort
         .SortFields.clear
         .SortFields.add Key:=range("D3"), _
                        SortOn:=SortOnValues, _
                        Order:=xlAscending, _
                        DataOption:=xlSortNormal
         .SetRange range("B4:D9")
         .HEADER = xlNo
         .MatchCase = False
         .Orientation = xlTopToBottom
         .SortMethod = xlPinYin
         .Apply
     End With
End Sub