Excel Vba Assign Range To Array Json