Turn SUMPRODUCT into some fancy VBA code formula

I have a SUMPRODUCT formula that checks three criteria and multiples values accordingly. It takes quite some time to do these calculations due to the amount of information and steps it has to go through. My goal is to convert this SUMPRODUCT formula into a VBA code to reduce the size of the workbook and make it faster. Unfortunately I got stuck My code so far is able to select the right range...but how do I convert my sumproduct formula into excel?

Here is the code I would like to convert:

Please Login or Register  to view this content.

Here is what I have so far:

Please Login or Register  to view this content.

Please see attachment to get an idea of what I am trying to accomplish.