Omvendt sortering

Jeg har lavet nedenstående kode og den virker fint, men jeg vil gerne have den til at sortere i omvendt rækkefølge.
- - - - - - - - - - KODE - - - - - - - - - -
Range(\"b6:d6\").Select
Range(Selection, Selection.End(xlDown)).Select

Selection.Sort Key1:=Range(\"b6\"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=1
Range(\"A1\").Select
- - - - - - - - - - - - - - - - - - - - - - - - -