Set Rng = Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)