Actualizar valores con las macros

Tengo problemas con algunas macros que al ejecutarlas realizan lo que quiero que hagan, pero después de ejecutrada cambio algunos valores, se actualizan los valores pero no me toma los condicionmamientos que le he dado.
Ejemplo:
Sub Retencion()
With Selection.Interior
If ActiveCell.Offset(-2, 2) > 0 Then
ActiveCell = ActiveCell.Offset(-2, 2) * 10 / 100
Else
ActiveCell = ActiveCell.Offset(-2, 2) * 0
MsgBox Prompt:="Error: Retenciòn no aplicable"
End If
End With
End Sub
Necesito que después de ejecutar la macro, me actualice los cambios de valores que yo haga sin tener que volver a ejecutar la macro, es decir que al realizar un cambio me calcule los datos de acuerdo a las condiciones que le he dado y que también me de el mensaje que correspnda.
Me explico. Si al ejecutar la macro me sale el mensaje de error por no cumplir la condición de ser > 0 entonces yo modifico algunos valores, pero aun así no se cumple la condición de ser mayor a cero entonces debe volver a dar el mensaje de error hasta que esa condición se cumpla. Todo esto si tener que volver a ejecutar la macro.
Gracias por la ayuda que me puedan dar.