Columns(4).Insert

--

Vasant

"rozb" wrote in message
...
Hello,

We have some data currently in Range("D:L") on a spreadsheet.
We are trying to move the data over by one column to Range("E:N") via
macro.
We have tried everything. XL does delete to the right.

A B C D E.....
1 x x x x x 'Before
2 x x x x x 'After

This should really be simple...but it is just not clicking for us. Please
help.

Sub CutpasteOneRow()
For each cell in selection
cell.cut cell. offset (0,1)
next
End Sub

or

activesheet.range("D2:D200")
if cell.value = "X" then
with selection
.cut destiation:=.offset(0,1)
end with
end if

Thanks,
Rozb