Hi

How about something like

Range("B2").Formula = "=2*2"
  Range("B2").AutoFill Destination:=Range("B2:B52")
  Range("B2:B52").AutoFill Destination:=Range("B2:N52")
replace the =2*2 with your sumproduct formula copied directly from the workbook and adapt to cover any " that may exist.

adjust your ranges as required.

HTH

rylo