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

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

The easiest way would be to insert a new column at D

Columns("D:D").Inser

--
Message posted from http://www.ExcelForum.com

ub InsertExtraBlankCell(
ActiveSheet.Range("d2:d200").Selec
rng = Selection.Rows.Coun
ActiveCell.Offset(0, 0).Selec
Application.ScreenUpdating = Fals
For i = 1 To rn
If ActiveCell.Value = "Reg:" The
Selection.Insert Shift:=xlToRigh
Els
ActiveCell.Offset(1, 0).Selec
End I
Next
Application.ScreenUpdating = Tru
End Su

We were working backwards..so we inserted instead.

Thank you.

Thank you.