Macro kodunu aralıklarla çalıştırmak

[Mesafe]

A sütunu boyunca çalışan makro kodunu aynı buton ile 10 ar lı satırlar halinde çalışacak şekilde düzenleyebilir miyiz ?

Private Sub CommandButton1_Click()
Dim i As Long
For i = 6 To Cells(Rows.Count, 1).End(xlUp).Row
Cells(i, 1).Copy [C1]
Next
End Sub