Ordering Mates with VBA

Hello all.

I need a vba macro to order Mates.

My goal is to keep unsuppressed mates in higher position and suppressed mates in lower position.

I need this because in assemblies with more than one configuration and a lot of mates, is very hard to understand wich are suppressed in a configuration and wich are unsuppressed in another.

Thank's