Excel Vba Sort An Array Of 0s