Moving a value in Column D

[mohd21uk via OfficeKB.com]

I have a spreadsheet with values in a couple of cells in Column E. The rest
of the cells are blank. I would like a macro that would move the value of any
cell containing data (non empty cells) four cells backwards and two cells
downwards to Column A. Is there a macro that would do this.

--
Message posted via http://www.officekb.com

[Ardus Petus]

Sub MoveIt()
Dim rCell As Range
For Each rCell In Columns("E") _
.SpecialCells(xlCellTypeConstants)
rCell.Offset(2, -4).Value = rCell.Value
rCell.ClearContents
Next rCell
End Sub

HTH
--
AP

"mohd21uk via OfficeKB.com" <u20517@uwe> a écrit dans le message de news:
5ff2cb8d67de5@uwe...
>I have a spreadsheet with values in a couple of cells in Column E. The rest
> of the cells are blank. I would like a macro that would move the value of
> any
> cell containing data (non empty cells) four cells backwards and two cells
> downwards to Column A. Is there a macro that would do this.
>
> --
> Message posted via http://www.officekb.com