Excel. Ввести формулы в множество полей - VB

Формулировка задачи:

Здравствуйте, подскажите пожалуйста, как можно сделать так, чтобы перебрать все поля столбца и ввести туда формулы.. их около 2000 полей и везде нужна формула перемножения соседнего столбца на заданный столбец.

Ex.ActiveWorkbook.Sheets.Application.Range().
Ex.ActiveWorkbook.Sheets.Application.ActiveCell.FormulaR1C1 = 
Ex.ActiveWorkbook.Sheets.Application.Range().
Ex.ActiveWorkbook.Sheets.Application.ActiveCell.FormulaR1C1 = 
Ex.ActiveWorkbook.Sheets.Application.Range().
Ex.ActiveWorkbook.Sheets.Application.ActiveCell.FormulaR1C1 = 

спасибо.

Решение задачи: «Excel. Ввести формулы в множество полей»

textual
                            Листинг программы 
                        
                            Cll.FormulaR1C1 = <font color="teal">"=PRODUCT(RC[-1], "</font> & Form1.Text1.Text & <font color="teal">")"</font>