Dim datax As Range
Set datax = Sheets("Archív").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
Sheets("Program").Range("A7:E7").Copy Destination:=datax
datax.Offset(, 5).Value = Format(Now, "dd.mm.yyyy hh:mm:ss")
Set datax = Nothing
citovat
Set datax = Sheets("Archív").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
Sheets("Program").Range("A7:E7").Copy Destination:=datax
datax.Offset(, 5).Value = Format(Now, "dd.mm.yyyy hh:mm:ss")
Set datax = Nothing
citovat