sorting an array

Like this:

    Range("W1:Z4").Sort Key1:=Range("Y1"), Order1:=xlDescending, _
                        Header:=xlNo, Orientation:=xlSortColumns

See VBA Help for the Sort method