Excel Vba Put Range Into Array Initialization