Insertar la fecha de hoy en una celda si se cambian o agregan otros valores de celda usando VBA

Question

Tengo esta hoja de cálculo que comparto con mi equipo y estoy buscando una manera de poner la fecha de hoy en una celda cada vez que hay un cambio en la hoja de cálculo. Encontré esta codificación, que está funcionando, sin embargo, no quiero que aparezca un mensaje, quieroHOY()para insertar en la celda D2 (no necesito hora, solo fecha). Cualquier ayuda sería muy apreciada.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim KeyCells As Range

' The variable KeyCells contains the cells that will
    ' cause an alert when they are changed.
    Set KeyCells = Range("A1:W160")

If Not Application.Intersect(KeyCells, Range(Target.Address)) _
           Is Nothing Then

' Display a message when one of the designated cells has been 
        ' changed.
        ' Place your code here.
        MsgBox "Cell " & Target.Address & " has changed."

End If
End Sub