Alterações em celulas

[Grabs 0]

Boa Noite Colegas

 

Estou precisando de uma ajuda pq não manjo quase nada de VB, estou fazendo uma planilha com alguns códigos que consegui na net. O meu problema é o seguinte:

Quando eu entro com informaçao na célula A, após quatro poosições entrara com a data, só que se eu mudar a informação da célula A a data não podera ser modificada (coisa que vem acontecendo).

E tem outra situação: quando deleto os dados da célula A a data mantém, gostaria de limpar a célula que estara a data, Segue o código

If Union(Range(strCelula), Range("A:A")).Address = Range("A:A").Address Then
        If Range(strCelula, 4) <> "" Then
           Range(strCelula).Offset(0, 4) = DoNothing
        End If
        If Range(strCelula).Value <> "" Then
            Range(strCelula).Offset(0, 4).Value = Now
        End If
End If

Aguardo a colaboração dos colegas

Muito Obrigada

[scorpio 7]

Em que evento colocou esse código ?

[Grabs 0]

Espero que ajude

Private strCelula       As String
 
Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    Application.EnableEvents = False
    If Union(Range(strCelula), Range("B:B")).Address = Range("B:B").Address Then
        If Range(strCelula).Value = "EFETIVO" Then
            Range(strCelula).Offset(0, 63).Value = Now
        End If
        If Range(strCelula).Value = "DESENVOLVIMENTO" Then
            Range(strCelula).Offset(0, 64).Value = Now
        End If
        If Range(strCelula).Value = "ADIANTAMENTO" Then
            Range(strCelula).Offset(0, 65).Value = Now
        End If
        If Range(strCelula).Value = "AMOSTRA" Then
            Range(strCelula).Offset(0, 66).Value = Now
        End If
    End If
    If Union(Range(strCelula), Range("A:A")).Address = Range("A:A").Address Then
        
        If Range(strCelula).Value <> "" Then

           If Range(strCelula).Offset(0, 4) = "" Then
            Range(strCelula).Offset(0, 4).Value = Now
           End If
           
        End If
    End If

A minha primeira questao eu consegui solucionar, que era mudar o conteudo da celula A e manter a data na celula E

Mas eu preciso solucionar a parte de quando deletamos o conteudo de A apagar o conteudo de E