Formatação condicional

[Renata Schroeder]

Preciso fazer uma auditoria onde tenho 646 dados, e esses dados são dividios de 3 em 3 repetições, dentro dessas repetições preciso identificar se há uma diferença de 30% acima ou abaixo, e quando houver essa diferença gostaria que essa celula ficasse pintada, tentei esse código mas n funcionou e não consegui resolver. Se tiver outra forma de fazer q n seja por formatacao condicional tb poderia ser uma boa 

 

Sub FormatacaoCondicionalTresCelulas()
    Dim rng As Range
    Dim cell As Range
    Dim lastRow As Long
    
    ' Defina o intervalo de células onde deseja aplicar a formatação condicional
    Set rng = Range("AI2:AI646" & Cells(Rows.Count, 2).End(xlUp).Row)
    
    ' Determina a última linha com dados
    lastRow = rng.Rows.Count + rng.Row - 1
    
    ' Loop através do intervalo de células, pulando de 3 em 3 células
    For i = 1 To lastRow Step 3
        If i + 2 <= lastRow Then
            Dim value1 As Double
            Dim value2 As Double
            Dim value3 As Double
            
            value1 = rng.Cells(i, 1).Value
            value2 = rng.Cells(i + 1, 1).Value
            value3 = rng.Cells(i + 2, 1).Value
            
            Dim diff1 As Double
            Dim diff2 As Double
            Dim diff3 As Double
            
            ' Calcula as diferenças percentuais
            If value1 <> 0 Then
                diff1 = Abs((value2 - value1) / value1)
                diff2 = Abs((value3 - value2) / value2)
                diff3 = Abs((value3 - value1) / value1)
                
                If diff1 >= 0.3 Or diff2 >= 0.3 Or diff3 >= 0.3 Then
                    rng.Range(rng.Cells(i, 1), rng.Cells(i + 2, 1)).Interior.Color = RGB(255, 0, 0) ' Cor para conjuntos com diferença de 30% ou mais
                
                End If
            End If
        End If
    Next i
End Sub