Vba Setting A Range As An Array Using Factors