Range("H2").Formula =
"=SUMPRODUCT(--($F$3:$F$500=""7-F""),--($G$3:$G$500=""A""),H$3:H$500)"
Range("H2").Autofill Range("H2:J2")


--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"Bobby" wrote in message
...
Im sorry---I would like to do this through macro.

"Bobby" wrote:

Hello
I would like to paste this formula into H2:AE2
=SUMPRODUCT(--($F$3:$F$500="7-F"),--($G$3:$G$500="A"),$H$3:$H$500)
Where the critera refs are static and the sum range follows the column
ie.
H2=SUMPRODUCT(--($F$3:$F$500="7-F"),--($G$3:$G$500="A"),$H$3:$H$500)
I2=SUMPRODUCT(--($F$3:$F$500="7-F"),--($G$3:$G$500="A"),$i$3:$i$500)
J2=SUMPRODUCT(--($F$3:$F$500="7-F"),--($G$3:$G$500="A"),$j$3:$j$500)

Thanks!