Sub 昇順or降順に並び替える()
    
    '("A2:B6")が並び替え全体範囲 ("B2")で基準列最上部を指定
    
    '「xlAscending」で昇順
    Range("A2:B6").Sort Range("B2"), order1:=xlAscending
    
    '「xlDescending」で降順
    Range("A2:B6").Sort Range("B2"), order1:=xlDescending
    
End Sub