Sub Sort()
    Range("A2:D7").Select

    Selection.Sort Key1:=Range("D:D"), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
            False, Orientation:=xlTopToBottom
    Range("A1").Select
End Sub