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