Excel Vba Create Array With Same Value In Math