Ahoj prosimtě mám prosbu...... kopírovací makro mezi listy jsem nahrál pomocí funkce nahrát makro, znělo následovně:

sub makro_kopirovani()

Sheets("Přehled").Select
Rows("12:12").Select
Selection.Copy
Sheets("KKY").Select
Range("A4").Select
ActiveSheet.Paste

end sub

Snažil jsem se ho tedy aplikovat na můj případ:

Sub kopirovani()

Sheets("Přehled").Select

y = Range("B3").End(xlDown).Row ' PosledniZapsanyRadek

For i = y To 3 Step -1 ' uloží do i poslední zapsaný řádek , který nalezl jako y, a začně cyklus

    If Cells(i, 10) = "KKY" Then '10 je označení sloupce J -> rozeznává v jaké se hráč nachází skupině
    'MsgBox ("KKY")
    Rows(i).Select
    Selection.Copy
    Sheets("KKY").Select
    x = Range("B1").End(xlDown).Row + 1 ' PrvníPrázdnýŘádek
    Range(x).Select
    ActiveSheet.Paste
    ElseIf Cells(i, 10) = "ZCI" Then
    MsgBox ("ZCI")
    ElseIf Cells(i, 10) = "MZKY" Then
    MsgBox ("MZKY")
    ElseIf Cells(i, 10) = "JAROŠOV" Then
    MsgBox ("JAROŠOV")
    ElseIf Cells(i, 10) = "PŘÍPRAVKA" Then
    MsgBox ("PŘÍPRAVKA")
    ElseIf Cells(i, 10) = "JKY" Then
    MsgBox ("JKY")
    ElseIf Cells(i, 10) = "ZKY" Then
    MsgBox ("ZKY")
    ElseIf Cells(i, 10) = "JUNI" Then
    MsgBox ("JUNI")
    ElseIf Cells(i, 10) = "" Then
    MsgBox ("Prázdné")
    End If
Next i

End Sub

a mám dva problémy: ten první je, že mi to nekopíruje, chyba je v Range(x).Select, kdy mi to hodí error 1004: method range of object _ global failed
druhý "nedostatek" je ten, že bych potřeboval, jak mi to vybírá Rows(i).Select, tak bych ten selektovaný řádek potřeboval BEZ první buňky zleva

věděl by si někdo prosím rady? díky