Unique random numbers

Option Explicit

Sub RandomNumber()

Dim Lowest              As Long
Dim Highest             As Long
Dim x                   As Long
Dim y                   As Long
Dim Total               As Long
Dim ChoiceTemp          As Long
Dim Choice()            As Long
Dim Repeat              As Boolean

    Application.ScreenUpdating = False

    Lowest = 1
    Highest = InputBox("what is the highest number?")
    Total = InputBox("How many combinations do you want")
    
ReDim Choice(1 To Total)
        
    For x = 1 To Total
a:
        Randomize
        Repeat = False
        ChoiceTemp = Int((Highest + 1 - Lowest) * Rnd + Lowest)
        For y = 1 To Total
            If Choice(y) = ChoiceTemp Then
                Repeat = True
                Else
            End If
        Next y
        If Repeat = True Then
            GoTo a:
            Else
            Choice(x) = ChoiceTemp
        End If
    Next x
    For x = 1 To Total
        Sheets("Sheet1").Range("A" & x).Value = Choice(x)
    Next
    
End Sub

Option Explicit

Sub generate_randomnumbers()
Dim entr As Integer
Dim wi As Integer
Dim nr(999) As Integer
Dim i As Integer
Dim j As Integer
Dim check As Boolean
Dim msg As String
entr = Application.InputBox("How many entrants  ?", "ENTRANTS", 1)
wi = Application.InputBox("How many winners ?", "WINNERS", 1)
Randomize Timer
For i = 1 To wi
Do
nr(i) = Int(Rnd * entr) + 1
check = False
For j = 1 To i - 1
If nr(i) = nr(j) Then check = True
Next j
Loop While check = True
msg = msg & nr(i) & Chr(10)
'or Range("A" & i) = nr(i)
Next
MsgBox msg
End Sub

Option Explicit
Sub choose_winners_visual()
Dim entr As Integer
Dim wi As Integer
Dim i As Integer
Dim nr(999) As Integer
Dim ccc As Range

entr = Application.InputBox("How many entrants  ?", "ENTRANTS", 1)
wi = Application.InputBox("How many winners ?", "WINNERS", 1)
Application.ScreenUpdating = False
Sheets.Add
With Cells
.Value = ""
.Interior.ColorIndex = 15
.ColumnWidth = 4
.RowHeight = 24
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
End With
ActiveWindow.DisplayHeadings = False

For i = 1 To entr
Cells(Int((i - 1) / Int(Sqr(entr))) + 2, (i - 1) Mod Int(Sqr(entr)) + 2) = i
Next i
For Each ccc In Cells(2, 2).CurrentRegion
If ccc<> "" Then
ccc.Interior.ColorIndex = 14
ccc.Borders(xlEdgeLeft).LineStyle = xlContinuous
ccc.Borders(xlEdgeTop).LineStyle = xlContinuous
ccc.Borders(xlEdgeBottom).LineStyle = xlContinuous
ccc.Borders(xlEdgeRight).LineStyle = xlContinuous
End If
Next ccc
Cells(2, 2).CurrentRegion.Select
ActiveWindow.Zoom = True

Range("A1").Select
Randomize Timer
Application.ScreenUpdating = True
For i = 1 To wi
  Do
  nr(i) = Int((entr) * Rnd + 1)
  Cells.Find(What:=nr(i)).Activate
  Loop While Selection.Interior.ColorIndex = 6
  Selection.Interior.ColorIndex = 6
  Application.Wait Now + TimeValue("00:00:02")
Next i
Range("A1").Activate
End Sub