[Tasos]

Θανάση,
Δεν ξέρω τι ακριβώς θέλεις να επιτύχεις.

Σου δίνω ένα γενικότερο παράδειγμα μιας και δεν έχω κατανοήσει την όλη λογική της
εφαρμογής σου:

Dim rCell As Range

Sub test()
'......κώδικας
    With Range("K" & FirstRow & ":K" & FinalRow)
        .FormulaR1C1 = "=IF(RC[-1]<>"""",ROUND(RC[-1]*(1-Supplier%),2),"""")"
        .Value = .Value

        For Each rCell In .Cells
            If IsNumeric(rCell) And rCell > 0 Then rCell.Interior.ColorIndex = 4
            
            'Cell Interior Color (Long)
            'If IsNumeric(rCell) And rCell > 0 Then rCell.Interior.Color = 65280
            
            'Cell Color as RGB ( Vba.RGB(Red, Green, Blue) )
            'If IsNumeric(rCell) And rCell > 0 Then rCell.Interior.Color = RGB(0, 255, 0)
        Next

    End With

    'κώδικας....
End Sub

' Για να βρείς το νούμερο του χρώματος φόντου, Πάτησε  CTRL+G 
' για να εμφανίσεις το παράθυρο "Immediate" και τρέξε τον κώδικα παρακάτω:

Sub GetCellInteriorColor()
    Debug.Print ActiveCell.Interior.Color
    Debug.Print ActiveCell.Interior.ColorIndex
End Sub

Καλη συνέχεια!
Τάσος