Sub ArryNumberSort1()
    Dim c As Long
    
    'Variant型配列に適当な並び順の数値を入れる
    Dim lArry1() As Variant
    lArry1 = Array(2, 1, 5, 7, 9, 8, 4, 6, 3)
    Debug.Print "元の配列は: " & UBound(lArry1) + 1 & " 件です"
    For c = LBound(lArry1) To UBound(lArry1)
        Debug.Print lArry1(c);
    Next
    Debug.Print vbNewLine
    
    'Long型配列にVariant型配列の数値を昇順で入れ直す
    Dim lArry2() As Long
    For c = LBound(lArry1) To UBound(lArry1)
        ReDim Preserve lArry2(c)
        lArry2(c) = Application.WorksheetFunction.Small(lArry1, c + 1)
    Next
    Debug.Print "昇順配列は: " & UBound(lArry2) + 1 & " 件です"
    For c = LBound(lArry2) To UBound(lArry2)
        Debug.Print lArry2(c);
    Next
    Debug.Print vbNewLine
End Sub

Sub hoge()
    '[1]事前準備
    Range("A1").Value = 17
    Range("A2").Value = 5
    Range("A3").Value = 3
    Range("A4").Value = 11
    Range("A5").Value = 13
    Range("A6").Value = 2
    Range("A7").Value = 7
    
    '[2]配列に値を格納
    Dim w As Worksheet
    Dim a1() As Variant
    Set w = ActiveSheet
    a1 = Range("A1").CurrentRegion
    
    '[3]並べ替え用シート作成→並べ替え→並べ替え用シート削除
    Worksheets.Add
    Range("A1:A" & UBound(a1)).Value = a1
    Range("A1").CurrentRegion.Sort key1:=Range("A1"), order1:=xlAscending, Header:=xlNo
        
    a1 = Range("A1").CurrentRegion
    Application.DisplayAlerts = False
    ActiveSheet.Delete
    Application.DisplayAlerts = True
    
    '[4]並べ替え済の値を出力
    w.Activate
    Range("C1:C" & UBound(a1)).Value = a1
End Sub

nums = [17, 5, 3, 11, 13, 2, 7]

nums.sort()
print(nums) # [2, 3, 5, 7, 11, 13, 17]

nums.sort(reverse=True)
print(nums) # [17, 13, 11, 7, 5, 3, 2]