Pivot value filter top 10 doesn't affect slicer items

Hello Gents,
I've been stuck on this problem for solid 2 weeks and can't find solution on google, perhaps you will be able to help

I have a pivot table based on access db with thousands items where I want to see only top 10 by their value. However value filter has no effect on corresponding items in a slicer. I need slicer to update other pivots according to top 10 items.

Manually picking 10 items from thousands is a nightmare. I got VBA that was picking items one by one but it takes hours to run.

Any suggestions what can I do to make this task easy and reasonably fast?

Thank you in advance!