Loop through, and formula where value on other sheet

[papasmurfuo9]

Hi

I have the following code

Range("B10").FormulaR1C1 = "=IF('Part 2'!E10="",TEXT("",""),Formulas!$B$1)"
Range("B11").FormulaR1C1 = "=IF('Part 2'!E11="",TEXT("",""),Formulas!$C$1)"
Range("B12").FormulaR1C1 = "=IF('Part 2'!E12="",TEXT("",""),Formulas!$D$1)"
Range("B13").FormulaR1C1 = "=IF('Part 2'!E13="",TEXT("",""),Formulas!$E$1)"
Range("B14").FormulaR1C1 = "=IF('Part 2'!E14="",TEXT("",""),Formulas!$F$1)"

basically, i want this formula to continue all the way to B1000 + equvilant column in formulas sheet, is there any easy way of doing? with a loop of some form

thank you very much

[:) Sixthsense :)]

Sub FillInOneShot()
    Range("B10:B1000").Formula = "=IF('Part 2'!E10="""","""",INDEX(Formulas!$1:$1,,ROWS($1:2)))"
End Sub