Crr = .Range("c2:ay9"): Arr = .Range("c37:ay" & R): n = 0
'cR = Array("", 1, 2, 3, 6, 7, 8)
CR = Array(1, 2, 3, 6, 7, 8)
For Each ci In CR: For cj = 1 To UBound(Crr, 2)
For aii = ci To UBound(Arr) Step 17
If ci < 6 Then ai = aii Else ai = aii + 1
If Arr(ai, cj) = "" Then GoTo 97
Crr(ci, cj) = Crr(ci, cj) + Arr(ai, cj)
97: Next aii: n = 0
Next cj: Next ci
¤U¬q¤]»Ýn§ï