Not sure what you mean by "wrap them in a record" but based on the rest of
your question -

Manually, select col-B header, grab the selection and drag to col-D

VBA,
Columns("B:B").Cut Destination:=Columns("D:D")

This will replace the contents of col-D with col-B

Regards,
Peter T

"Rahul Gupta" wrote in message
...
Hello All,

How do i shift alternate cell one place right and then wrap them in a
record
occuping 50000 lines. i mean i want to shift B1, then D1 and in B2 and D2
respectively and continie this utill all records are shifted.