Vba Excel Sort Variant Array In Math