I want to cut the last six digits from one cell and paste it to the one on its right.and down the 2800 rows.how can I do it in one shot using a macro???
Please help. himlink
Well do you already know the cell references? If you can explicitly refer to each cell address, then it would be (change sheet name and cell references as necessary):
.Range("B2800").Value = Right(Range("A1"), 6)
If whatever is the activecell, then it would be:
ActiveCell.Offset(2800, 1).Value = Right(ActiveCell.Value, 6)