Excel Vba Sort Array Numerically Summarizing