Ahoj, sestavil jsem makro, které kopíruje buňky na nový list, pokud dojde k jejich změně. Kód je následující:

Private Sub Worksheet_Change(ByVal Target As Range)
 Dim KeyCells As Range

 Set KeyCells = Range("B8:K8")

 If Not Application.Intersect(KeyCells, Range(Target.Address)) _
 Is Nothing Then
Range("B8:K8").Copy
With Sheets("List2").Range("A" & Rows.Count).End(xlUp).Offset(1)
 .PasteSpecial Paste:=xlPasteColumnWidths
 .PasteSpecial Paste:=xlPasteValues
End With
 Application.CutCopyMode = False

 End If
End Sub

Neporadil by mi někdo, prosím, s tím, co mám do kódu vložit za funkci, aby se na novém listu vedle zkopírovaných buněk objevil také čas, kdy došlo ke změně buňky na původním listě? Díky.