Hai disattivato le prime 2 Array , poi alla fine le hai aggiunte nella For
Ma non so se ho capito
Option Explicit
Sub Main
Dim n(12),st,cc,w,num1,num2,num3,num4,num5,num6,num7,num8,num9,num10,num11,num12
Dim y1,y2,y3,y4,y5,y6,y7,y8,y9,y10,y11,y12,at,fr
Dim a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12...