Boa tarde!!

Seria isso?

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Target.Column <> 5 Then Exit Sub
    If Target.Value = "2 - A PRAZO 30 DIAS" Then Target.Offset(, 1) = Date
End Sub

Att

Alexandre,

Não era bem assim, mas, a partir do seu código e as minhas alterações, obtive sucesso!

Obrigado!

Veja alterações:

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Count > 1 Then Exit Sub
If Target.Column <> 5 Then Exit Sub

If Target.Value = "1 - A VISTA" Then Target.Offset(, 3) = Target.Offset(, 1)

End Sub

Boa tarde!!

Eu fico feliz que você resolveu, obrigado por retornar!

Att