VBA Sort two columns

[montecarlo2012]

Hi.
Column B there are a bin of numbers, column C the frequency of this numbers.
In order for me to RANK them, I have to Editing with sort & filter
I want to find a real short way to code this,

example:

So the macro I got is:

//////////////////////////////////////////////----COPY AND PASTE -----/////////////////////////////////////////////////

Range("H2:I37").Copy
Range("T2").PasteSpecial Paste:=xlPasteValues

'///////////////////////////////////////////////--------SORTING--------///////////////////////////////////////////////////

Range("T2:U37").Select
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("U2:U37") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Sheet1").Sort
        .SetRange Range("T1:U37")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
End With

any way to trim this.
thanks.

 

[Fluff]

How about

Sheets("sheet1").Range("T2:U37").Sort key1:=Sheets("sheet1").Range("U2"), order1:=xlAscending, Header:=xlYes

 

[montecarlo2012]

Thank you Mr. Fluff, I have a little question, after you see the ilustration

I expect "cero" instead of one {"the arrow mark"), I tried to see if I can to fix but not, sorry.

 

[Fluff]

Try

Sheets("sheet1").Range("T1:U37").Sort key1:=Sheets("sheet1").Range("U1"), order1:=xlAscending, Header:=xlYes

 

[montecarlo2012]

GREAT, Thank you Mr. Fluff, work perfect.

 

[Fluff]

You're welcome & thanks for the feedback.