VB code to Run formula untill blank cell

[swinnersmusic]

Rajest:
also experiment with recording a macro.
here is one that has captured entering a formula and filling it across:

Sub enterformula()
'
' enterformula Macro
'

'
    Range("D6").Select
    ActiveCell.FormulaR1C1 = "4"
    Range("E6").Select
    ActiveCell.FormulaR1C1 = "=100*RC[-1]"
    Range("E6").Select
    Selection.AutoFill Destination:=Range("E6:L6"), Type:=xlFillDefault
    Range("E6:L6").Select
    Range("F9").Select
End Sub

regards
Alan