Private Sub Worksheet_Change(ByVal Target As Range)
Dim Zmena As Range, Bunka As Range, Zmazat As Range, Cas As Range
  
  Set Zmena = Intersect(Range(Cells(2, 1), Cells(Rows.Count, 1)), Target)
  
  If Not Zmena Is Nothing Then
    For Each Bunka In Zmena.Cells
      Select Case IsEmpty(Bunka)
        Case True: If Zmazat Is Nothing Then Set Zmazat = Bunka Else Set Zmazat = Union(Zmazat, Bunka)
        Case False: If Cas Is Nothing Then Set Cas = Bunka Else Set Cas = Union(Cas, Bunka)
      End Select
    Next Bunka
    
    If Not Zmazat Is Nothing Then Zmazat.Offset(, 3).ClearContents: Set Zmazat = Nothing
    If Not Cas Is Nothing Then Cas.Offset(, 3) = Now(): Set Cas = Nothing
    
    Set Bunka = Nothing: Set Zmena = Nothing
  End If
End Sub


Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Me.Range("A1:AA1000")) Is Nothing Then
        ThisWorkbook.Save
    End If
End Sub