セルの値をソートする [ExcelのVBA]

Private Sub CommandButton1_Click()
  Range("B1").Value = 2
  Range("B2").Value = 1
  Range("B3").Value = 3
      
  Range("C1").Value = "りんご"
  Range("C2").Value = "みかん"
  Range("C3").Value = "メロン"
  
  ' B列のキーを元に「昇順」に並び替える
  Range("B1:C3").Sort Range("B1"), xlAscending
  
  ' B列のキーを元に「降順」に並び替える
  ' Range("B1:C3").Sort Range("B1"), xlDescending
End Sub

Private Sub CommandButton1_Click()
  Range("A1").Value = "1"
  Range("A2").Value = "2"
  Range("A3").Value = "3"
  Range("A4").Value = "3"
  Range("A5").Value = "3"
      
  Range("B1").Value = "りんご"
  Range("B2").Value = "みかん"
  Range("B3").Value = "メロン2"
  Range("B4").Value = "メロン1"
  Range("B5").Value = "メロン1"
  
  Range("C1").Value = "青森県"
  Range("C2").Value = "和歌山県"
  Range("C3").Value = "北海道夕張市"
  Range("C4").Value = "北海道1"
  Range("C5").Value = "北海道2"
  
  ' 3つのキーを元に降順に並び替える
  Range("A1:C5").Sort _
      key1:=Range("A1"), Order1:=xlDescending, _
      key2:=Range("B1"), Order2:=xlAscending, _
      key3:=Range("C1"), Order3:=xlDescending
End Sub