Fill a formula until a specific row number

[kasun]

Hi I have this macro which fill a formula until specific cell which is based on a value in a separate cell. but this macro fill the formulas to a range of cells.(several Columns) i want to fill this formula only to one cell (one column) and cells below that until specific row. please help refer attached file with macro.