Набор случайных чисел vba excel

Формулировка задачи:

Sub GoodNewsEveryone()
 
Const N As Integer = 10
Dim A(N) As Integer
Dim i As Integer, x As Integer, y As Integer, z As Integer 
x = InputBox("Введите количество ")
y = InputBox("блаблабла у [y,z]")
z = InputBox("блабла z [y,z]")
 
A(i) = Int((z - y + 1) * Rnd + y)
Range(ActiveCell, ActiveCell.Offset(x - 1, 0)).Value = A(i) 
End Sub

Есть задание написать макрос, который генерирует набор случайных чисел (с заданными промежутками и их количеством) и размещает их в столбец, начиная с активной ячейки. Вот, что пока получилось. Подскажите, пожалуйста, как изменить код, чтоб он ячейки заполнял разными числами, а не одним и тем же.

Решение задачи: «Набор случайных чисел vba excel»

textual
                            Листинг программы 
                        

                            Sub GoodNewsEveryone()
 
Dim I As Integer, x As Integer, y As Integer, z As Integer
x = InputBox("Введите количество ")
y = InputBox("блаблабла у [y,z]")
z = InputBox("блабла z [y,z]")
 
For I = 1 To x
    Cells(ActiveCell.Row + I, ActiveCell.Column).Value = Int((z - y + 1) * Rnd + y)
Next
End Sub
                        