Cant get my DO WHILE Loop to function - Help please

[tr41nor]

Hi,

I am trying to produce a function that will update formulas based on the value of i. At present my code will copy and update the formulas across a range (rng1) based on the manual input of i. what i wish to do now is insert a loop that will increase the value of i by one each time until the range (rng1) is full. Within the loop I will need an IF statement to produce an updated formula that takes into account if i is less than or greater than 10.

Please help. been on this for a good few hours now and keep getting Type Mismatch errors.

Many Thanks!!