Rich (BB code):

```
Sub GetDist()
Dim arr(), N As Long
Application.Calculation = xlCalculationManual
N = Application.InputBox("How many trials?", 1)
ReDim arr(0 To N - 1)
Application.ScreenUpdating = False
With Range("B2")
For i = 0 To N - 1
arr(i) = Int(Rnd * 10) + 1
Next i
.Resize(N, 1).Value = Application.WorksheetFunction.Transpose(arr)
End With
Application.Calculation = xlCalculationAutomatic
End Sub
```