计算循环并报告当前迭代

So the Word macro I'm making pops up a userform where you enter a quantity x (1 of x) and it duplicates a row based on the quantity entered. The copy paste works fine, but I need to report the number of the copy based on the quantity. So for example, if 4 was entered, then four rows would be created that say "1 of 1", "1 of 2", "1 of 3", and "1 of 4" instead of all four saying "1 of x" when they all get copy pasted. Basically, x=n+1. I'm doing this with a loop, but I can't get this to come out. It will say 1, 1, 1, and 3. I'm trying to figure out how this executes to fix it, so any insight on how this loop is operating would be great! Thanks!So the Word macro I'm making pops up a userform