Sub cs()rc = Rows.CountFor i = 11 To 38 With Cells(rc, i).End(xlUp) .Value = Right(.Value, 2) End WithNextEnd Sub
