Excel Vba Add Range To Array Json