Auto update of date

Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Range, cell As Range
Set r = Intersect(Range("A:A"), Target)
If Not r Is Nothing Then
    Application.EnableEvents = False
    For Each cell In r
        If Not IsEmpty(cell.Value) Then
            With Cells(cell.Row, "T")
                .Value = Date
                .NumberFormat = "dd mmm yyyy"
            End With
        Else
            Cells(cell.Row, "T").ClearContents
        End If
    Next cell
    Application.EnableEvents = True
End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 1 Then Exit Sub
 If Target.Cells.Count > 1 Then Exit Sub
If Target <> "" Then
Target.Offset(0, 19).Value = Date
End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Range
Set r = Intersect(Range("A:A"), Target)
If Not r Is Nothing Then
    Application.EnableEvents = False
    r.Offset(, 19) = Date
    On Error Resume Next
    r.SpecialCells(xlCellTypeBlanks).Offset(, 19).ClearContents
    On Error GoTo 0
    Application.EnableEvents = True
End If
End Sub