Betinget formatering

Jeg har følgende makro, der farver en celle rød, hvis celle (i, 13) er mindre end celle (i, 14).
Sub Farve()

i = 9
Do
        Set curCell = ActiveSheet.Cells(i, 13)
        If (curCell.Value < ActiveSheet.Cells(i, 14)) Then
            ActiveSheet.Cells(i, 8).Select
            With Selection.Interior
                .ColorIndex = 3
                .Pattern = xlSolid
            End With

        End If
i = i + 1
Loop Until i > 1000
End Sub

Jeg vil dog gerne betinge farven af, hvor stor forskellen mellem de to celler er. Dvs., hvis (i, 13) er >= eller op til 5% mindre end (i, 14) farves (i, 8) grøn, hvis (i, 13) er 6-20% mindre end (i, 14) farves (i, 8) gul, hvis (i, 13) er over 21% mindre end (i, 14) farves (i, 8) grøn.