Sorting Array Using Functions Vba Code Cleaner