Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    Application.EnableEvents = 0
    If Not Intersect(Target, Range("S4:S10000,U4:U10000,W4:W10000,Y4:Y10000,AA4:AA10000,AC4:AC10000")) Is Nothing Then
        With Cells(Target.Row, 18)
            .Value = IIf(Target.Value = "", "", Format(Date, "dd.mm.yyyy"))
            .EntireColumn.AutoFit
        End With
    End If
    If Not Intersect(Target, Range("M4:M10000")) Is Nothing Then
        With Cells(Target.Row, 12)
            .Value = IIf(Target.Value = "", "", Format(Date, "dd.mm.yyyy"))
            .EntireColumn.AutoFit
        End With
    End If
    If Not Intersect(Target, Range("AF4:AF10000")) Is Nothing Then
        With Cells(Target.Row, 31)
            .Value = IIf(Target.Value = "", "", Format(Date, "dd.mm.yyyy"))
            .EntireColumn.AutoFit
        End With
    End If
    Application.EnableEvents = -1
End Sub