Randomize an order

Option Explicit








 
Sub RandomNrs()
Range("A1:A10").ClearContents
Dim r As Long, c As Long, X As Long
 
For r =1 To 10
'For c = 1 to 2
 
10 X = WorksheetFunction.RandBetween(1, 10)
If WorksheetFunction.CountIf(Range("A1:A10"), X) >= 1 Then GoTo 10 'find another number
   
Cells(r, 1) = X
'Next c
Next r
 
End Sub