sorting in macro activated