Calculate Values and filldown

[Cowichandave]

L6 is the result of J6-K6. I want to calculate L6 to end of rows lr. All this formula does is copy L6 to then end of the rows so the value is always the same.
How do I change this so that it calculates each row to the end row.


Range("L6").Select

ActiveCell.FormulaR1C1 = "=+RC[-2]-RC[-1]"

Range("L7:L" & lr).Value = Range("L6").Value

Range("L7:L" & lr).FillDown

 

[kevin9999]

There's a number of ways to do this. Here's just one (assumes you've already got the value of lr)

Range("L6:L" & lr).Value = Evaluate("J6:J" & lr & "-K6:K" & lr & "")

 

[Cowichandave]

Thank you

 

[kevin9999]

Thank you

You're welcome.