Tento riadok kódu do makra listu:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Cells(1, 1)) Is Nothing And Cells(1, 1) <> "" Then Cells(1, Cells(1, Columns.Count).End(xlToLeft).Column + 1).Value = Cells(1, 1)
End Subcitovat
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Cells(1, 1)) Is Nothing And Cells(1, 1) <> "" Then Cells(1, Cells(1, Columns.Count).End(xlToLeft).Column + 1).Value = Cells(1, 1)
End Subcitovat