No asi takto nejako.
Sub Makro1()
Selection.EntireRow.Copy
Sheets("Hárok2").Select
Range("A1000000").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("Hárok1").Select
End Subcitovat
Sub Makro1()
Selection.EntireRow.Copy
Sheets("Hárok2").Select
Range("A1000000").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("Hárok1").Select
End Subcitovat