Excel Vba Create Array With Unique Values Mapping