Hi all i had a problem of shifting selected rows one cell to the right, the
data looks like this:-

328 Sales $ 0 0 0 0 0 0
Qnty 0 0 0 0 0 0 0
509 Sales $ 0 0 0 0 0 0
Qnty 0 0 0 0 0 0 0
ALEX Sales $ 0 0 0 0 0 0
Qnty 0 0 0 0 0 0 0
ALJ Sales $ 0 0 0 0 0 0
Qnty 0 0 0 0 0 0 0
ANCH Sales $ 0 0 0 0 0 0
Qnty 0 0 0 0 0 0 0
ANG Sales $ 0 0 0 0 0 0
Qnty 0 0 0 0 0 0 0
ANSON Sales $ 0 0 0 0 0 0
Qnty 0 0 0 0 0 0 0
BEDOK Sales $ 0 0 0 0 0
Qnty 0 0 0 0 0 0 0
As what you have see the qnty column is not same as the sales column and i
had hundred thousand of rows to cut and paste.

Range("A746:H746").Select
Selection.Cut
Range("B746").Select
ActiveSheet.Paste
Range("A748:H748").Select
Selection.Cut

Range("B748").Select
ActiveSheet.Paste
Range("C749").Select
Is macro command able to solve the problem? like shifting selected multiple
rows one cells to the rigth.