Excel Vba Create Array And Partial Products