Unique Random Number In Ascending Order

[Excel Fox]

Try this

Sub GenerateRandomUnique()
    
    Dim lng As Long
    Dim var As Variant
    Dim rng As Range
    Set rng = Range("A2:A9")
    With CreateObject("Scripting.Dictionary")
        Do While .Count <= rng.Cells.Count
            lng = Rnd * 99 + 1
            .Item(lng) = Empty
        Loop
        var = Application.Transpose(.Keys)
        SortIntegerArray var
        If rng.Columns.Count = 1 Then
            rng.Value = var
        ElseIf rng.Rows.Count = 1 Then
            rng.Value = Application.Transpose(var)
        End If
    End With
    
End Sub