Set Rng = Cells(1, Columns.Count).End(xlToLeft).Offset(0, 1)