Moving XL Data over By one Column (*Same Row)

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

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
 
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.
 
Back
Top