I don't understand your problem at all, but using something like the next,
you can go across the lines you want

For lin = 1 To 2572 ' or what you need
Range("A" & lin, "H" & lin).Select
Selection.Cut
Range("B" & lin).Select
ActiveSheet.Paste
Next

Really, with this macro you obtains the same result as with "Insert Column"
mantioned previously.

Good luck
--
Findeo


"Shifting of Multiple Row to the right" wrote:

If so i still have to transfer the data from the current cells to the new
inserted column. So it still doesn't solve my problem... thanx anyway!

"Gary''s Student" wrote:

Consider inserting a column rather than shifting cells.
--
Gary''s Student


"Shifting of Multiple Row to the right" wrote:

Hi can anyone help me with my problem?
Thanks in advance!

I had receive a compile data from one of my vendors and there is one
adjustment i need to make in order to alight with correct heading column. The
macro i had try to create doesn't really works. Cause it works only on one
selected rows.

Range("A752:H752").Select
Selection.Cut
Range("B752").Select
ActiveSheet.Paste

I need to amend about twenty thousand of selected rows in order to work on
the data.

Thx & regards
William