pedrobb,

Boa Noite!

Veja se o arquivo anexo lhe atende.

Era isso mesmo, Wagner.
Obrigado,
Pedro

Boa noite!!

Vou aproveitar que já foi resolvido e da melhor forma, então postarei uma outra maneira, só que não tão inteligente.
Executada por um botão de comando

Sub AleVBA7756()
Dim lR As Long, vA As Variant, R As Range, oRw As Long
lR = Range("B" & Rows.Count).End(xlUp).Row
Set R = Range("B7", "C" & lR)
vA = R.Value
Application.ScreenUpdating = False
For i = LBound(vA, 1) To UBound(vA, 1)
    If vA(i, 1) = vA(i, 2) Then R.Cells(i, 1).Offset(0, 2).Value = "Liberado"
Next i
End Sub