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