kleur geven aan rij met voorwaarde

Sub sorteren_planning()

' Sneltoets: Ctrl+p

    ActiveWorkbook.Connections("Query - maxeda_VRT").OLEDBConnection.BackgroundQuery = False
    ActiveWorkbook.Connections("Query - maxeda_VRT").Refresh
   
'Sorteren - uitlijnen
    Application.CutCopyMode = False
    ActiveWorkbook.Worksheets("VRT").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("VRT").Sort.SortFields.Add2 Key:=Range("D2:D111"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("VRT").Sort.SortFields.Add2 Key:=Range("E2:E111"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("VRT").Sort
        .SetRange Range("A1:W111")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
        Worksheets("VRT").Activate
        Cells.Select
    With Selection
        .HorizontalAlignment = xlLeft
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    
'Lege rijen invoegen
        Worksheets("VRT").Activate
        Cells.Select
        Set bereik = Range("A2")
            rij = bereik.Row
            kolom = bereik.Column
        Do
            If Cells(rij + 1, kolom) <> Cells(rij, kolom) Then
            Cells(rij + 1, kolom).EntireRow.Insert shift:=xlDown
            rij = rij + 2
        Else
            rij = rij + 1
    End If
    Loop While Not Cells(rij, kolom).Text = ""
End Sub

Sub kleuren()

   For Each ar In Columns("A").SpecialCells(xlConstants).Areas   'alle blokken aflopen
      b = (Application.CountIf(ar, ar.Cells(1)) <> ar.Cells.Count)   'niet alle cellen binnen area gelijk
      If b Then ar.Font.ColorIndex = 3           'dat blok een rode tekstkleur geven
   Next

End Sub

     If b Then ar.[COLOR="#FF0000"]entirerow[/COLOR].Font.ColorIndex = 3           'dat blok een rode tekstkleur geven