Помогите сделай генератор случайных чисел на VBA excel

Question

Sub macros1() 
For k = 1 To 4 
 For m = 1 To 4 
 S = S + Cells(m, k).Value 
 Next m 
 Next k 
 Cells(5, 5).Value = S 
End Sub 
 
вот кароче код, надо чтобы в этот сектор ячеек записались рандомные числа, я токо знаю что команда Rnd и всё,помогите

Алексей 10 · Accepted Answer

For q = 1 To 4 
Cells(1, q) = Int(22 * Rnd) + 1 
Next 
 
числа будут от 1 до 22 
но они могут повторяться 
надо добавлять цикл проверки 
 
Успехов!