On 5 Mar, 11:31, Joel wrote:
Sub fill_formula_until_end()

'find last row in column B
LastRow = Range("B" & rows.Count).end(xlup).Row
for Rowcount = 9 to LastRow
* *if Range("B" & RowCount) < "" then
* * * * *Range("W" & RowCount) = Range("W8")
* * * * *Range("X" & RowCount) = Range("X8")
* *end if
next RowCount



Joel

This leaves the formulas in cells W8 and X8 but the cells below are
hardcoded with whatever value was in W8 and X8, rather than entering
the formula

Any idea what change I need to make to your code?
Thanks