Per the earlier note - you should revise your approach.
If the criteria values in the Summary table reflect the values in the Source table (ie consistent) you can just apply the formulae to the ranges en masse and subsequently apply results.
Using your sample file:
Your VBA is then much simplified:
though why you're using VBA rather than just using formulae in cells escapes me given the fruit listing is not dynamic and the values in D are themselves populated by in cell formulae
Anyway, I hope the above is of some use...
Bookmarks