move formulas to a different column

[indu aronson]

I have a lot of cells with formulas in Column J. I would
like to move any cell that has a formula to Column L. The
formulas are all over the place and are not contiguous.
Moreover, the cells that have formulas are also formatted.
Is there any way to identify cells that have formulas in
the range (J2:J1600) and move those to the appropriate
cell in column L

 

[Tom Ogilvy]

set rng = Range("J2:J1600").SpecialCells(xlFormulas)

for each cell in rng
cells(cell.row,"L").formula = cell.formula
cell.ClearContents
Next