Ola Pessoal, encontrei o código abaixo na net e faz o que eu preciso, só gostaria de ter uma inputbox para colocar o valor manualmente quando executar o código (onde tem o valor 60.

sub GerarNúmerosAleatóriosSemRepetir()

    'Suponha que os números estão no intervalo B1:G10

    Const nMínimo As Long = 1
    Const nMáximo As Long = 60
    Const strDestino As String = "B1:G10"
    
    Dim n As Long
    Dim r As Long
    Dim col As Collection
    
    Randomize Timer
    
    Set col = New Collection
    On Error Resume Next
        Do
            n = Int(Rnd * nMáximo) + nMínimo
            col.Add n, CStr(n)
        Loop Until col.Count = nMáximo
        For n = 1 To nMáximo
            Range(strDestino).Cells(n) = col(n)
        Next n
    On Error GoTo 0
    
End Sub

Obrigado desde já