Here is the code that I used in a sheet to move cell contents from one row to
another. I'm using in a another sheet and it isn't working....it is moving
the entire row to the new column, not just the cells with greater than 7
characters. Any ideas? Thanks

Set rng = Range(Cells(2, "K"), Cells(Rows.Count, "K").End(xlUp))
For Each cell In rng
If Len(cell.Value) 7 Then
cell.Offset(0, 1).Value = cell.Value
Next
cell.ClearContents
End If