if statement in VBA code

[tpkelley_no]

I need the following formula in VBA code =if(E242<>0,D242+E242,0). The formula needs to be placed in column “I”. Where column “B” has “LB” and “LB” can be in any row in column “B” I came up with the following and it did not work.

Sub test()
Dim i As Long, LRT As Long
LRT = Range("B" & Rows.Count).End(xlUp).Row
For i = LRT To 1 Step -1
If Cells(i, 2).Value = "LB" Then
Cells(i, 8).Formula = "=if(" & Range("b6:b" & LRT <> 0)("d6:d" & LRT + "e6:e" & LRT).Address&
End If
Next
End Sub

 

[Worf]

This code will place the same formula on all rows, is that what you want?

Sub test()
Dim i As Long, LRT&
LRT = Range("B" & Rows.Count).End(xlUp).Row
For i = LRT To 1 Step -1
    If Cells(i, 2) = "LB" Then Cells(i, 9).Formula = "=if(e242<>0,d242+e242,0)"
Next
End Sub