Boa noite,

Pessoal, encontrei uma Macro onde quando editamos uma célula, uma outra célula é preenchida com a data e hora do momento, até ai tudo bem. Só que eu gostaria de que a data e a hora só aparecesse quando eu colocasse um "valor" específico na célula. Por exemplo:

Nas células A:A quando eu colocar "Vendido", aparece a data e a hora na célula B:B

Segue o código que eu encontrei:

Private Sub Worksheet_Change(ByVal Target As Range)
'Update 20140722
Dim WorkRng As Range
Dim Rng As Range
Dim xOffsetColumn As Integer

Set WorkRng = Intersect(Application.ActiveSheet.Range("A:A"), Target)
xOffsetColumn = 5
If Not WorkRng Is Nothing Then
Application.EnableEvents = False
For Each Rng In WorkRng
If Not VBA.IsEmpty(Rng.Value) Then
Rng.Offset(0, xOffsetColumn).Value = Now
Rng.Offset(0, xOffsetColumn).NumberFormat = "dd-mm-yyyy, hh:mm:ss"
Else
Rng.Offset(0, xOffsetColumn).ClearContents
End If
Next
Application.EnableEvents = True
End If

Ele funciona para qualquer alteração na célula, gostaria de uma alteração especifica, podem me ajudar?

Desde já, agradeço