Sum according to Auto filter non visible cells

Hi,

The whole "story" can be found inside the attached WB.

I tried using SUBTOTATL but no luck.

As always, I prefer without helper column(s) and/or VBA - but If not - I will, probably, have to compromise.

Thanks, Elm