Dík za odkaz, vidím, že to tam vyřešili. Problém ale je, že jsem na tohle fakt jelito a nevím kam ten kód mám vepsat, vlastně ani nevím co mám hledat abych si pomohl sám. Proto bych ještě poprosil o radu kam ten kód mám napsat. Děkuji.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Sledovana_oblast As Range
Set Sledovana_oblast = Range("A1,A3,A5:A10") 'kontrolované buňky ve sloupci A
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 = Now
.EntireColumn.AutoFit 'automatická šíře sloupce
End With
End If
End Sub