Excel VBA Macro To Repeat Records Based On User Value In InputBox

[gclifton]

Is there a way to Modify this Macro to read a list of Number in Sheet 2, by Cell A1 then A2, etc (loop) for example the table below would reflect what is in Sheet 2.Then take that number in Sheet 2 A1 and place it in Column U with all the Data and then copy and Duplicate "A1:"U189" beside me having to put the total number or repetitions in the Input Box. So now basically the Macro is now labeling all that is being Copied by Sheet 2 A1, A2,. So in my example 101 would have 189 lines labeled as 101 and 102 will have 189 labeled as 102

Dim rng As Range
Dim i As Long

Set rng = Range("A1:T189")
For i = 1 To InputBox("Enter repetitions")
rng.Copy rng.Offset(rng.Rows.Count * i)
Next i

101
102
103
104
105