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 'Befor
2 x x x x x 'Afte

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

Sub CutpasteOneRow(
For each cell in selectio
cell.cut cell. offset (0,1
nex
End Su

o

activesheet.range("D2:D200"
if cell.value = "X" the
with selectio
..cut destiation:=.offset(0,1
end wit
end i

Thanks
Roz