Segue modelo para você avaliar e adaptar, que deve ser colado no módulo da planilha:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B2:B20")) Is Nothing Then
If UCase(Target.Value) = "SIM" Then
Target.Offset(0, -1).Value = Target.Offset(0, -1).Value
End If
End If
End Sub
Postado : 30/08/2016 2:40 pm