Guru do Excel e Power BI

Option Explicit

Sub Formata_AtvDiarias()
    
    Dim Tabela As ListObject
    
    Set Tabela = wshAtivDiarias.ListObjects("TB_AtividadesDiarias")
    
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    
    'Tabela.DataBodyRange.FormatConditions.Delete
    
    With Tabela.ListColumns("Registro").DataBodyRange.FormatConditions
        .Delete
        .Add Type:=xlExpression, Formula1:= _
        "=E($I15=""Paciente"";OU($M15="""";$M15=""-""))"
        With .Item(.Count)
            .Interior.Color = RGB(255, 235, 156)
            .Font.Color = RGB(156, 101, 0)
        End With
        .Add Type:=xlExpression, Formula1:= _
        "=E($I15=""Paciente"";(EXT.TEXTO($N15;1;LOCALIZAR(""ano"";$N15)-1)*1>=8);OU($L15="""";$L15=""-"";$M15="""";$M15=""-""))"
        With .Item(.Count)
            .Interior.Color = RGB(255, 235, 156)
            .Font.Color = RGB(156, 101, 0)
        End With
        .Add Type:=xlExpression, Formula1:= _
        "=OU($W15=""Aguardando pagamento"";$W15="""";$X15="""")"
        With .Item(.Count)
            .Interior.Color = RGB(255, 235, 156)
            .Font.Color = RGB(156, 101, 0)
        End With
        .Add Type:=xlExpression, Formula1:= _
        "=E($AA15<>"""";$AA15<>""-"";OU($AB15="""";$AB15=""-""))"
        With .Item(.Count)
            .Interior.Color = RGB(255, 235, 156)
            .Font.Color = RGB(156, 101, 0)
        End With
    End With
    
    Set Tabela = Nothing
    
    Application.EnableEvents = True
    Application.ScreenUpdating = True
    
End Sub