Filling A Table With Unique Random Number

Sub fill()
    Const numbrs = 9, sqrs = 9
    Dim begin As Range
    Set begin = Range("sudoku").CurrentRegion.Offset(1, 1)
    ReDim tulem(1 To numbrs)
    rnd_n tulem(), numbrs, sqrs
    fit tulem(), numbrs, begin
End Sub
Sub fit(sql(), sqlend, place As Range)
    For i = 1 To sqlend
        place.Cells(1, i) = sql(i)
    Next i
End Sub
Sub rnd_n(tulem(), numbrs, sqrs)
    Randomize
    i = 0
    Do While i < numbrs
        x = Int(Rnd() * sqrs) + 1
        If newnr(x, tulem(), i) Then
            i = i + 1
            tulem(i) = x
        End If
    Loop
End Sub
Function newnr(x, sql(), sqlend) As Boolean
    newnr = True
    For i = 1 To sqlend
        If sql(i) = x Then
            newnr = False
            Exit Function
        End If
    Next i
End Function