Shortening repeating INDEX formulas with a consistent reference pattern. Possible?

oR
E5=SUMPRODUCT((Sheet1!$H$3:$H$9)*INDEX(Sheet1!$B$3:$F$9,,MATCH(E$1,Sheet1!$B$2:$F$2,0))*(INDEX(Sheet1!$B$3:$F$9,,MATCH(E$1,Sheet1!$B$2:$F$2,0))>0)*(Sheet1!$A$3:$A$9=Sheet2!$K4:$O4))/$B4

=SUMPRODUCT((Sheet1!$H$3:$H$9)*INDEX(Sheet1!$B$3:$F$9,,MATCH(E$1,Sheet1!$B$2:$F$2,0))*(INDEX(Sheet1!$B$3:$F$9,,MATCH(E$1,Sheet1!$B$2:$F$2,0))>0)*(Sheet1!$A$3:$A$9=Sheet2!$K4:$O4))/$B4

Try this and copy across