Excel Vba Create Array And Area