VBA エクセル 売上のカラムで降順（値が大きい順）で並び替える

Sub uriage()
    Range("I4").Select 'I4セルをセレクト
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear '前のSortFieldオブジェクト削除
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("I4"), _
        SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Sheet1").Sort
        .SetRange Range("A3:I8")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub