Logic to create multiple numbered copies of a page?

Question

I have compiled a report that I need to create unique numbered instances of a page based on a number of units for different vendors, and I'm trying to automate the process. I use a parameter field to tell the report to determine the number of units that necessitate an additional copy of the report. For instance, if I enter a parameter of 10 and there are 50 units, I need to get 5 copies of the report; if there are 175 units, I need 18, and so on.
I'm trying to use a do while loop where I increment the page count lower each time a page is printed, but I can't figure out exactly how to pull it off..... Here's what I've got:
Dim c
c = {@total_reports}
Do While c > 0
    if c = 1 then Exit Do
    c = c - 1
Loop
formula = c
Total reports is the total number of pages I need for an individual report. There may be hundreds of individual reports for which I need to go through this duplication process.....
Of course, the formula as written only counts down to 1 and prints "1" into a single instance of a report, but that is where I'm hung up - how can I get it to start with number 18 and count down to number 1, and to then move on to the next unique report?
A million thanks in advance for any help!

Answer 1

This returns a 1 for all instances in the test report I'm using.
I didn't use the Roundup methodology because I need each instance of the report to return the value of units associated with the individual page/instance.
For example, if there are 238 units of a product, and the parameter entry denotes a split of 25, then I need it to create 9 reports, each noting that it covers 25 units (9*25=225) and one report noting that it covers 13 units (238-225=13). The mathematical end of things is pretty tidy, but I'm having trouble figuring out how to get it to print the "25" nine times and "13" once..... I need it to print to the page prior to going into the loop each time:
Dim c
c = {@total_reports}
Do While c > 0
    if c = 1 then Exit Do
    c = c - 1
----- PRINT VALUE TO PAGE LOGIC HERE -----
Loop
formula = c
I rarely have to use the basic scripting, so I'm just not sure how to get it to do what I want....