Botón que genere números aleatorios en celdas

Aquí tienes la macro que lo hace. En mi ejemplo la he creado para 4 números aleatorios entre 1 y 10 y los pintaremos en el rango A1:A4

Sub aleatorios()

Do While Total <> 4

Range("a1").Formula = "=int(rand()*(10-1)+1)"

Range("a2").Formula = "=int(rand()*(10-1)+1)"

Range("a3").Formula = "=int(rand()*(10-1)+1)"

Range("a4").Formula = "=int(rand()*(10-1)+1)"

n1 = Application.WorksheetFunction.CountIf(Range("a1:a4"), Range("a1"))

n2 = Application.WorksheetFunction.CountIf(Range("a1:a4"), Range("a2"))

n3 = Application.WorksheetFunction.CountIf(Range("a1:a4"), Range("a3"))

n4 = Application.WorksheetFunction.CountIf(Range("a1:a4"), Range("a4"))

Total = n1 + n2 + n3 + n4

Loop

End Sub

Recuerda finalizar y puntuar.