10te Zeile Kopieren

Ich habe hier einen VBA den ich anpassen müsste - weiß nur nicht wie!!

Ich möchte gern nur jede 10 Zeile kopieren, muss ich den Step verändern? Wenn ja auf was muss ich den setzen?

Sub Kopieren()
Dim i As Long, x As Long
For i = 1 To 100 Step 2
Sheets(1).Rows(i).Copy
Sheets(2).Rows(i).Insert
Next i
For i = 2 To 100 Step 2
Sheets(1).Rows(i).Copy
Sheets(3).Rows(i).Insert
Next i
End Sub

DANKE für Eure Hilfe!!