VBA farvning af celler

Jeg har et regneark med bl.a. følgende kolonner:
Tildelt tid    Forbrugt tid    Diff.
10:00                7:24    -97%
10:00                4:06    -94%
10:00              10:41    -98%

Jeg ønsker at få farvet forbrugt tid grøn eller rød ud fra 3 regler. Her for celle J10:
-Stop hvis celleværdien er mellem 0 og 1 (under 24 timer)
-Hvis f.eks. K10<-0,2 så farves skriften rød
-Hvis f.eks. K10>0,2 så farves skriften grøn

Jeg har lavet følgende VBA. Den fungere sådan set fint, men kan nok gøres smartere:
Sub Farvning_af_celler() 'Farver alle celler i forbrugt tid efter følgende regler
                            'Stop hvis celleværdien er mellem 0 og 1 (under 24 timer)
                            'Hvis f.eks. K10<-0,2 så farves skriften rød
                            'Hvis f.eks. K10>0,2 så farves skriften grøn

Range("J10").Activate

Do Until IsEmpty(ActiveCell.Value) = True
    If ActiveCell.Value > 1 And ActiveCell.Offset(0, 1) < -0.2 Then 'Cellens værdi er større end 24 timer og en kolonne hen er mindre end -20%
        ActiveCell.Interior.Color = 255
  ' Else
  '    ActiveCell.Interior.Color = xlNone 'Alle andre celler har ingen udfyldningsfarve
    End If
    If ActiveCell.Value > 1 And ActiveCell.Offset(0, 1) > 0.2 Then 'Cellens værdi er større end 24 timer og en kolonne hen er større end 20%
        ActiveCell.Interior.Color = 5287936
    'Else
    '    ActiveCell.Interior.Color = xlNone 'Alle andre celler har ingen udfyldningsfarve
    End If
       
    ActiveCell.Offset(1, 0).Activate '21 rækker op i samme kolonne
Loop

End Sub

Jeg ønsker nu at foretage den samme farvning af cellerne i en række andre kolonner, svarende til hver tredje kolonne frem og indtil kolonne FD.

Det kan sikkert gøres ret nemt, men er der nogen som kan hjælpe mig til at komme videre?