Генерация строк для нагрузочного тестирования - VBA

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

Всем привет, прошу помочь в следующей задаче. Необходимо размножить строки в таблице следующего вида: A1 B1 92 A2 B8 23 А3 B1 743 A4 B2 12 *столбец A1-An отвечает за количество строк, столбец B содержит случайное значение от B1 до Bm, стоблец 3 - это случайное целое число из диапазона [1;1000]. Делается это для подготовки данных для нагрузочного тестирования системы, чтобы изменяя значение n - замерять производительность. Нужно подготовить десяток таких таблиц, но имея хороший пример, смогу дальше делать сама. PS. Я знаю, что задача простая, но, к сожалению, никогда макросами раньше не пользовалась

Решение задачи: «Генерация строк для нагрузочного тестирования»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Sub macro1()
Dim n As Long
Dim m As Long
Dim asd As Long
Dim sdf As Long
n = InputBox("Введите число строк")
m = InputBox("Введите верхний предел для второго числа")
Randomize
For i = 1 To n
Cells(i, 1) = "A" & i
t = CInt(Int((m * Rnd()) + 1))
Cells(i, 2) = "B" & IIf(t > m, m, t)
t = CInt(Int((1000 * Rnd()) + 1))
Cells(i, 3) = IIf(t > 1000, 1000, t)
Next i
End Sub