売上順に並び替え

'売上順に並び替え
'「ヒント」A列に商品名、B列に数字を入力して下さい
Sub WsSalesAnalysisSort()

     Worksheets("Sheet1").Range("A1:B10").Sort Key1:=Range("B1"), Order1:=xlDescending, Header:=xlYes

End Sub