Unique Random Number In Ascending Order

[marreco]

Hi.
I need to generate repeat NOT REPEATED numbers and arrange the numbers in ascending order. If anyone can fix I would appreciate it.

Sub RndNumb()
With Range("A2:A9")
    .Formula = "=INT(99*RAND()+1)"
    .Value = .Value
End With
End Sub