Ciao,
va benissimo... ora preparo la tabella e poi ti do il link da dove scaricarla
Grazie infinite e buona notte ;)
eZio

salve
ho capito ora il senso della richiesta. ( tabella ordinata dal basso e non dall'alto).
Provando con la macro con il tuo file ho anche notato un errore che sarebbe scaturito nel momento in cui
la cella selezionata fosse stata la riga 10.
la macro modificata è questa:

Sub Provacontitoli()
A = ActiveCell.Row
col = 36
orig = A
riga = 4
If (orig - 3) Mod 10 = 0 Then
x = orig / 10
Else
x = Int(((orig - 3) / 10)) + 1
resto = (orig - 3) Mod 10
End If
For I = 8 To 33
If x < 1 Then Exit Sub
For n = 1 To x
If A >= 10 And orig - 3 > 7 Then
Cells(A - 9, I).Select
Selection.Resize(10).Copy Destination:=Cells(riga, col)
Else
Cells(A - (resto - 1), I).Select
Selection.Resize(resto).Copy Destination:=Cells(riga + (10 - resto), col)
End If
col = col + 1
If n <> x Then
A = A - 10
Cells(A, I).Select
End If
Next
riga = riga + 13
col = 36
A = orig
Next I
End Sub

saluti
Giap

---

salve
L'errore corretto che menzionavo, veniva scaturito nel caso in cui la cella selezionata fosse la riga 10.
Con l'istruzione: If A >= 10 viene valutato se prendere l'intera decina oppure il residuo della decina.
Non era stato previsto che si potesse selezionare anche la riga 10. In questo caso la macro l'avrebbe interpretata
come decina piena non tenendo conto dell'eventuale intestazione. Avrebbe eseguito la riga di codice
Cells(A - 9, I).Select
Selection.Resize(10).Copy Destination:=Cells(riga, col)

Per risolvere tale anomalia è stata modificata la riga del codice in: If A >= 10 And orig - 3 > 7 Then
sottoponendo al controllo anche la variabile "Orig" meno le righe di intestazione forzando così l'esecuzione
di questa riga di codice:
Cells(A - (resto - 1), I).Select
Selection.Resize(resto).Copy Destination:=Cells(riga + (10 - resto), col)
saluti
Giap

---