macro run time error

[Frank3923]

I am receiving a run-time error '1004': on the macro code shown below.
I was adapting some code that I received help here on the board. If someone could point out to me the error I am making on the formula line, I would appreciate it.

Application-defined or object-defined error
-the following line high lights to yellow-
....Range("M" & a).FormulaR1C1 = "=IF(RC9=>1,""YES"",""NO"")"

What I need the code to reflect is IF (Column I cell is greater than 1, ""YES"", ""NO"")

Starting row, would be 7, step to be 2, and the last row to be determined by Column "G", just to clarify the the numbers in column "I", are every 2 rows.

Sub fill_Down_BP_xYN()

Dim LR As Long, a As Long
Application.ScreenUpdating = True
With Worksheets("BP-Proj-Runs")
LR = .Cells(Rows.Count, "G").End(xlUp).Row
For a = 7 To LR Step 2

.Range("M" & a).FormulaR1C1 = "=IF(RC9=>1,""YES"",""NO"")"

Next a
End With
Application.screenUpdating = false
End Sub

Thank you in advance

 

[VoG]

I think that should be

.Range("M" & a).FormulaR1C1 = "=IF(RC[-4]=>1,""YES"",""NO"")"

 

[Frank3923]

Vog - thank you for the rapid response. I inserted your revised code, and still receive the same error message. I would appreciate any additional ideas

Thanks

 

[VoG]

Try this

Sub fill_Down_BP_xYN()
Dim LR As Long, a As Long
Application.ScreenUpdating = False
Worksheets("BP-Proj-Runs").Select
    LR = Cells(Rows.Count, "G").End(xlUp).Row
    For a = 7 To LR Step 2
        Range("M" & a).Formula = "=IF(I" & a & ">=1,""YES"",""NO"")"
    Next a
Application.ScreenUpdating = True
End Sub

 

[Frank3923]

Works awesome, Thank you so much.