Copia incolla

[Statix]

Ciao a tutti ho un piccolo problema da risolvere ad un amico.
ho una riga (2)da A2 a lunghezza variabile da 200 a 1000,
con una macro devo prendere 9 celle per volta (A2:I2)
e incollarle in A6
prendere altre 9 celle J2:R2
e incollarle in A7
altre 9 celle S2:AA2
e incollarle in A8
fino all'ultima cella disponibile della riga 2

grazie

[Anthony47]

Sub mmmm()
For I = 2 To Cells(2, Columns.Count).End(xlToLeft).Column Step 9
Cells(2, I).Resize(1, 9).Copy Destination:=Cells(6 + J, 1)
J = J + 1
Next I
End Sub

Prova e fai sapere

[Statix]

Funziona ma parte dalla colonna B e non A della riga 2

[Statix]

ok risolto,
grazie Anthony47,
per l'altro post modifica macro ci ho rinunciato.
modificato For I = 2
in For I = 1