Einfügen des heutigen Datums in eine Zelle, wenn andere Zellwerte mit VBA geändert oder hinzugefügt werden

Question

Ich habe also diese Tabelle, die ich mit meinem Team teile, und ich suche nach einer Möglichkeit, jedes Mal, wenn es eine Änderung im Arbeitsblatt gibt, das heutige Datum in eine Zelle einzutragen. Ich habe diese Codierung gefunden, die funktioniert, aber ich möchte nicht, dass eine Meldung angezeigt wird, ich möchteHEUTE()soll in Zelle D2 eingefügt werden (ich brauche keine Zeit, nur das Datum). Für jede Hilfe wäre ich sehr dankbar.

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