Write formula using vba

[Matt111]

Hi, I have a summary table which uses the formula below, however i'd like to change the way i go about this and solve this using vba, the problem is i can't get my head around converting it to run as part of a macro!!! could anyone help please? The formula below happens to be in D8 but it's relative so when i run the macro should go in all cells of the range D4:D60
cell contents:
=SUMPRODUCT((INDIRECT(InputSht&"$K$"&Report!$J$11&":$K$"&end_row&""))*(INDIRECT(InputSht&D$1&Report!$J$11&":"&D$1&end_row&"")*((INDIRECT(InputSht&"$"&LookupCol&"$"&Report!$J$11&":$"&LookupCol&"$"&end_row&"")=$B8))))

change to format suitable for macro e.g.
Range("D4:D60").Select
Selection.FormulaR1C1 = ".........

I guess this might not be very clear to you because i'm using name ranges but I'm running really short on time having struggled for a while with this!!!

...thanks in advance
Matt.

 

[Matt111]

Solved!