modification to existing code to If statement

[Guest]

I use this code to move amounts from column K (11) to column G in the same
row and then delete the contents in the cell in column K. My problem is that
I get an error if there is not amounts in column K. I'm not sure how I would
alter this to say if there is text in col K move it to column G so I don't
get the soft edit. Any ideas. Thank you


Set rng = Columns(11).SpecialCells(xlConstants)
For Each Cell In rng
Cells(Cell.Row, "G").Value = Cell.Value
Next
rng.ClearContents

 

[Don Guillett]

try
on error resume next

 

[Guest]

Where in my code to I put that text Don. I've tried in various places but I
still ge the debug error. I appreciate your help thanks