Hi Everyone

I really need help with this one, I've been looking for a solution here, but am not getting anywhere.

I have a sheet that is populated with data from another sheet. The data is categorized into sectors in the target sheet. The program then needs to give a subtotal of all the records in the range. The table in the sheet looks like this:
Please Login or Register  to view this content.
The code I have in VBA is as follows and for some reason gives me the wrong value in the third sector:
Please Login or Register  to view this content.