What I'm trying to accomplish is to move any cell in col I to column J if the
cell has more than 6 alph numeric characters. What happens is all the text
is being moved from Col I to col J reguardless of the number of characters.
I'm not sure what is wrong. Any help you can provide is appreciated, thanks


Sub MoveID()

' if text is greater than 6 characters in column I then move text to
same row in column J

Set rng = Range(Cells(2, "I"), Cells(Rows.Count, "I").End(xlUp))
For Each Cell In rng
If Len(Cell.Value) > 6 Then
Cells(Cell.Row, "J").Value = Cell.Value
End If
Cell.ClearContents
Next
On Error Resume Next

End Sub