Populate a cell when another cell is not blank

[detriez]

I am trying to get this to populate all cells in BJ (not the header cell BJ1) with "USD" when Cells in column B are not blank

This is throwing a Run-time error 424: Object Required error on "If Range....)

    Dim LastRow As Long
    Dim i As Long
    LastRow = Range("B" & Rows.Count).End(xlUp).Row
    For i = 2 To LastRow
        If Range("B" & i) Is Not Null Then
            Range("BJ" & i).Value = "USD"
        End If
    Next i

 

[Fluff]

Try

If Range("B" & i)<>"" Then

 

[Fluff]

Another option without the loop

Sub detriez()
   With Range("B2", Range("B" & Rows.Count).End(xlUp))
      .Offset(, 60).Value = Evaluate(Replace("if(" & .Address & "<>"""",""USD"",if(@="""","""",@))", "@", .Offset(, 60).Address))
   End With
End Sub

 

[detriez]

That did it!
Thanks Fluff

 

[Fluff]

You're welcome & thanks for the feedback.