Excel Vba Assign Active Cell Range To Variable