Вставка сегодняшней даты в ячейку, если другие значения ячейки изменены или добавлены с помощью VBA

Question

Итак, у меня есть эта электронная таблица, которой я делюсь с моей командой, и я ищу способ, чтобы сегодняшняя дата помещалась в ячейку, каждый раз, когда в рабочем листе происходят изменения. Я нашел эту кодировку, которая работает, однако, я не хочу, чтобы всплывало сообщение, я хочуСЕГОДНЯ()вставить в ячейку D2 (мне не нужно время, только дата). Любая помощь будет оценена по достоинству.

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