How to Color cell in one row if cellvalue is higher or lower than specific number?

[Stout]

as the title said i want to know how to use a macro to Color a cell in one row if the cell value is higher or lower than specific number.

for the moment i have this

Dim myLastRow As Long
myLastRow = Range("D65536").End(xlUp).Row
Range("B" & myLastRow + 1).Resize.FormulaR1C1 = "=COUNTIF(R[" & -myLastRow & "]C:R[-1]C,""<1"")"


Range("D" & myLastRow + 1).Resize(, 42).FormulaR1C1 = "=COUNTIF(R[" & -myLastRow & "]C:R[-1]C,"">4"")"


Range("AT" & myLastRow + 1).Resize(, 76).FormulaR1C1 = "=COUNTIF(R[" & -myLastRow & "]C:R[-1]C,"">5"")"

i want the cell to become red if its go higher than zero and if it stays at zero i want it to become green.

 

[svendiamond]

I'm not sure about how to edit your macro but why not just use conditional formatting? Have you already explored that option?

 

[Stout]

that would probably work but as i have to use this macro every day, it would take time to do that from other things i could be working on.