Private Sub Worksheet_Change(ByVal Target As Range)

Dim Sledovana_oblast As Range

Set Sledovana_oblast = Range("A1:A100,C1:C100") 'kontrolované buňky ve sloupci A a C
If Target.Cells.Count > 1 Then Exit Sub 'proti hromadnému vkládání dat (do více buněk současně)
If Not Intersect(Target, Sledovana_oblast) Is Nothing Then
    With Target(1, 2) 'první řádek slupce B
        .Value = Date 'Vloží datum, Now vkládá datum a čas
        .EntireColumn.AutoFit 'automatická šíře sloupce
    End With
End If
End Sub