Problém číslo jedna vyřešen
uprava kodu:
Rows(i).Select
Selection.Copy
Sheets("KKY").Select
x = Range("B1").End(xlDown).Row + 1 ' PrvníPrázdnýŘádek
Cells(x, 1).Select
ActiveSheet.Paste
teď bych ještě potřeboval napravit ten druhý problém a to je to kopírování toho řádku bez té první buňky zleva