macro

  • Thread starter Shifting of Multiple Row to the right
  • Start date
S

Shifting of Multiple Row to the right

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
 
S

Shifting of Multiple Row to the right

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!
 
F

Findeo

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
 
Top