To TOPPERS and Bob Philips.

How can code 1 be amended to incorporate the EVALUATE option
(code 2) for the SUMPRODUCT function only. Thank you.

Code 1
Dim i As Long For i = 10201 To 10320 Step 8
Cells(i, "J").Resize(7).FormulaR1C1 = _
"=SUMPRODUCT(--(R6C6:R10006C6=RC9),--(R6C4:R10006C4=R10200C),R6C32:R10006C32)"
Cells(i + 7, "J").FormulaR1C1 = "=SUM(R[-7]C:R[-1]C)" 'TOTAL FOR GROUP
Next i
'================
Code 2 EVALUATE
Range("d1") =
Evaluate("SUMPRODUCT(--(ALVXXL01!$B$2:$B$65536=A5),--(ALVXXL01!$K$2:$K$65536=""MMV3""),--(ALVXXL01!$P$2:$P$655360),--(ALVXXL01!$P$2:$P$65536))")

--
Robert