testing for 21 conditions with VBA

[zakynthos]

What I would like to do is input a number (incrementing by 1) from 1 to 100 in column B via a Userform which has 2 inputs and 1 output:


I have data in an array from a1:v10000
Col A
Integers in blocks of 100, incrementing by one
Rows 1 – 100 are all 1’s
Rows 101-201 are all 2’s etc
Col B
(This is where data is to be input)
Cols C:V (and rows 1:20, 21:40 etc)
Contain a 1-20 respectively, (to denote criteria) so C1 would be criteria 1 and V1 would be criteria 20. C21 would be a 1 as the cycle repeats.

2 Inputs
No. of recipient? (answers will be between 1 and 100)
Criteria no? (answers will be between 1 and 20)
One output
An integer in Column B, incrementing by 1 per row according to the answers to the 2 inputs
(representing the no. of emails to be sent to each recipient)

Example
If input (answer) to inputs was 1, 1, then output would be a 1 in cell B1
If input (answer) to inputs was 1, 2, then output would be a 2 in cell B2
If input (answer) to inputs was 1, 20, then output would be a 20 in cell B20

So the loop would therefore cycle blocks of 20:
If input (answer) to inputs was 1, 1, then output would be a 1 in cell B21
If input (answer) to inputs was 1, 2, then output would be a 2 in cell B22
If input (answer) to inputs was 1, 20, then output would be a 20 in cell B40
This would continue until the end of the first block for recipient no 1 (at row 100)
If input (answer) to inputs was 1, 20, then output would be a 100 in cell B100
The start of the second block of recipients (recipient 2) at row 101:
If input (answer) to inputs was 1, 1, then output would be a 1 in cell B101
The cycle continues until row 10000
If input (answer) to inputs was 1, 20, then output would be a 100 in cell B10000


Many thanks