How to fill formula down till last row in column

[adelvoira]

How to get my VBA code to draw down the formula that's in cell F121 all the way down to the end of the data set. So in excel my formula is =F120+D121-E121

 

[Fluff]

How about

Sub copyDown()
   Range("F121", Range("E" & Rows.Count).End(xlUp).Offset(, 1)).FillDown
End Sub

 

[adelvoira]

It's not working
here is my vba code:

Sheets("CARBURANTS").ActivateFor i = 1 To Sheets("CARBURANTS").Range("b" & Rows.Count).End(xlUp).Row
If Sheets("CARBURANTS").Cells(i, 2).Value = Me.TextBox105 Then
If ListBox2.List(i, 1) = "gasoil" Then
Sheets("CARBURANTS").Cells(i, 6).Value = Sheets("CARBURANTS").Cells(i - 1, 6).Value + Sheets("CARBURANTS").Cells(i, 4).Value - Sheets("CARBURANTS").Cells(i, 5).Value
End If
i = i - 1
End If
Next i

 

[MARK858]

You haven't got a formula, you have a constant and your code isn't starting in F121, it is going from F1 to whatever the last data is in column B.

What do you get with the below assuming that you are actually starting in F2 and the code below doesn't use column B, it uses whatever is the longest column (if you actually want F121 change the F2 in the code)...

    With Sheets("CARBURANTS").
        With .Range("F2", .Range("F" & .Cells.Find("*", , xlValues, , xlByRows, xlPrevious).Row))
            .FormulaR1C1 = "=R[-1]C+RC[-2]-RC[-1]"
            .Value = .Value
        End With
    End With