Função VBA para Somar em Tabela

Cliente   Valor   Liberado   Modalidade   Fase
Fulano   5000   5000   x   Liberado
João   10000   0   y   Estudo
Maria   10000   0   y   Inicial
José   456   456   y   Liberado

=SE(OU(B5="";C5="");"";SE(B5=C5;"Liberado";""))

Sub CompararDuasColunasCriterio()
'Compara os dados de duas colunas, caso igual, escreve em outra coluna o valor "Liberado"
    Dim i As Long, n As Long
    n = Application.Max(Range("B65536").End(xlUp).Row, Range("C65536").End(xlUp).Row)
    For i = 4 To n
        If Range("B" & i).Value = Range("C" & i).Value Then Range("E" & i).Value = "Liberado"
    Next i
    Call ifen
End Sub

Sub ifen()
Dim LastRow As Long
'Filtra as células baseado no critério "Liberado"
'Coloca ifen nas células das colunas G:J
    With Worksheets("Plan1")
        .AutoFilterMode = False
        .Range("A4:J4").AutoFilter
        .UsedRange.AutoFilter
        .UsedRange.AutoFilter field:=5, Criteria1:="Liberado"
          LastRow = .Range("G" & .Rows.Count).End(xlUp).Row
        .Range("G2:J" & LastRow).SpecialCells(xlCellTypeVisible).Select
    End With
    Selection = "-"
End Sub

Option Compare Text
'Ponha esse código dentro do módulo de planilha
Dim PreviousValue

Private Sub Worksheet_Change(ByVal Target As Range)

On Error Resume Next
Call Alert_msg
        If PreviousValue = "OK" Then
    If Target.Value <> PreviousValue Then
  '
 
      MsgBox " Atençaõ ao deletar esses dados"
           
    End If
            End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    PreviousValue = Target.Value
End Sub

Sub Alert_msg()
  'Ponha esse código dentro de um módulo
Range("E1:E1000").Validation.Delete
  For Each cell In Range("E1:E1000")
 
  If cell.Value = "OK" Then
  cell.End(xlToRight).Select
  cell.End(xlToLeft).Select

    Selection.Resize(1, 15).Select

      With Selection.Validation
        .Delete
        .Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator _
        :=xlBetween
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = "Cuidado ao deletar"
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
       
    End With
   
    End If
   
    Next cell
End Sub

Option Explicit

Dim varPreviousValue As Variant
Private Sub Worksheet_Change(ByVal Target As Range)
   
    On Error Resume Next
        If Target.Column <= 10 Then
            If Range("E" & Target.Row) = "OK" Then
                If Target.Value <> varPreviousValue Then
                    MsgBox "Cuidado ao deletar essa informação baseado em E" & Target.Row & ".", vbExclamation, "AleVBA"
                    With Application
                        .ScreenUpdating = False
                        .EnableEvents = False
                        .Undo
                        .EnableEvents = True
                        .ScreenUpdating = True
                    End With
                End If
            End If
        End If
    On Error GoTo 0
   
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
    varPreviousValue = Target.Value
   
End Sub