Excel Vba Sort An Array According To The Order