Pls Help....
The command for cutting and pasting a single row looks likes this

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

There again for another row i need to do the same thing as what i had did
for the pervious.

Range("A748:H748").Select
Selection.Cut
Range("B748").Select
ActiveSheet.Paste
Range("C749").Select

And i had more than hundred thousand of selected rows to be shift to the
right, cause is a data collected from vendor and the complie data is some
thing lke this:-

328 Sales $ 0 0 0 0 0
Qnty 0 0 0 0 0 0 0
509 Sales $ 0 0 0 0 0
Qnty 0 0 0 0 0 0 0

ALEX Sales $ 0 0 0 0 0
Qnty 0 0 0 0 0 0 0
ALJUNIED Sales $ 0 0 0 0 0 0
Qnty 0 0 0 0 0 0 0
ANCH Sales $ 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

As u can see the qnty is not the same column as the sale column.
Thx a million for your help.