Я бы переписал на немассивный вариант Код
=СУММПРОИЗВ(($B$4:$B$9=B22)*($C$4:$C$9=C22)*($D$4:$D$9=D22)*$E$4:$E$9)
и его уже вводил: [vba]Код
Sub Макро()
Range("F22:F23").FormulaR1C1 = _
"=SUMPRODUCT((R4C2:R9C2=RC[-4])*(R4C3:R9C3=RC[-3])*(R4C4:R9C4=RC[-2])*R4C5:R9C5)"
End Sub
[/vba] ну а если исходную формулу массива сохранять, то можно в цикле:[vba]Код
Sub Макро1()
For Each cel In Range("F22:F23")
cel.FormulaArray = "=SUM(IF((R4C2:R9C2=RC[-4])*(R4C3:R9C3=RC[-3])*(R4C4:R9C4=RC[-2]),1)*R4C5:R9C5)"
Next
End Sub
[/vba]