Sub Macro1()
Range("a1").Select
On Error GoTo dinuovo
For A = 1 To 6
For B = 2 To 7
For C = 3 To 8
For D = 4 To 9
For E = 5 To 10
'Ciclo "A"
ActiveCell = A
'Ciclo "B"
ActiveCell.Offset(0, 1).Select
If B <= A Then B = A + 1
ActiveCell = B
'Ciclo "C"
ActiveCell.Offset(0, 1).Select
If C <= B Then C = B + 1
ActiveCell = C
'Ciclo "D"
ActiveCell.Offset(0, 1).Select
If D <= C Then D = C + 1
ActiveCell = D
'Ciclo "E"
ActiveCell.Offset(0, 1).Select
If E <= D Then E = D + 1
ActiveCell = E
ActiveCell.Offset(1, -4).Select
Next E
Next D
Next C
Next B
Next A
dinuovo:
On Error Resume Next
ActiveCell.Offset(-65535, 6).Select
Resume
End Sub