Export to Excel - VBA - Conditional Highlight

[Johnny12]

Hey everyone! This should be rather simple, but my brain just isn't working. I have a table that is exported to Excel via an Event Procedure using VBA. Depending the source data it could have several hundred rows of data. Some of these rows in column R, if the value is greater than 0, I would like the background to be RED. I've tried a few things and they haven't worked. Can I get a little help?

This is my last attempt.

 If .Range("R" & i).Value > 0 Then .Range("R" & i).Interior.ColorIndex = 3

[Johnny12]

So, after I posted the above I read one of my older posts. in that post, @pdaldy mentioned using recoding a macro in Excel and bringing it into the VBA. It worked! Thanks again. That is an amazing trick.

The only remaining question, the below code also turns the header (R1) red. Don't want that. ??

   Columns("R:R").Select    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, _
        Formula1:="=0"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .Color = -16383844
        .TintAndShade = 0
    End With
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13551615
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False

[pbaldy]

Ha! I was just about to post it again. I'm lazy, so getting Excel to show me the code is my default.