Assign A Range To An Array Vba Excel