Complicated function; Can it be done?

I basically need to write a formula that does the following.

1. when no value is imputed into the designated space, do nothing.

2. when data is imputed (it will be a number from 1-99), I need it to do the following:

Type "1" 50 times vertically in a designated column, then start again at "2" fifty times and basically input that data equal times to the number placed in the designated space.

It will also, in a separate column, input a word 50 times in the same rows that the numbers it inputs are placed.

Example: in I1: I input the number 2

does this:


F G H
13 Defective 1
14 Defective 1
15 Defective 1
... ... ...
63 Defective 2
64 Defective 2


I doubt this can even be done, but i'm itching to find out if it can.

EDIT: assume that Defective and the number "1,2" are in two separate columns, not next to each other

So you are not entirely clear with your question

If I have say 25 in cell A1 and Defective in cell a2 what do you want to happen?

a) have each number from 1 to 25 repeated 50 times below with the word defective in the adjacent cell?

b) have 1 repeated 25 times then 2 repeated 25 times with defective in the cell to the side

Both are straight forward with a macro, just a click of a button, you just loop based on the numbers in the designated cell

Regards

Dav