Não sei se entendi corretamente, pois você diz COLUNA A2 e não celula e depois somente Coluna D, mas teste uma das duas rotinas abaixo e veja se é isto.

Lembrando somente uma das duas :

Esta coloca a Data na Coluna D logo a frente de qualquer celula alterada na Coluna A

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Column = 1 Then
            
        Range("D" & Target.Row).Value = Date
            
    End If

    End Sub

Esta colocará a data em D2 somente se for alterado ou digitado qualquer valor em A2

Private Sub Worksheet_Change(ByVal Target As Range)
    
    If Target.Address = "$A$2" Then
            
        Range("D2").Value = Date
        
    End If
        
End Sub

[]s

Bom dia!

Também tem esta opção:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 1 Then Range("D" & Target.Row).Value = Date
End Sub

Você cola este código na Plan que você vai usar!!!

Att,

valdecir, bom dia!

Não tinha reparado que o primeiro código citado pelo nosso amigo Mauro Coutinho é igual ao que postei.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 1 Then Range("D" & Target.Row).Value = Date
End Sub

Obs:- Se for utilizar este, inserir o código na plan que você está usando!!!

Att,

Caso seja necessário reabrir o tópico, o autor poderá enviar uma MP para um dos moderadores solicitando o desbloqueio.