If Len=3, move Cell Data 1 column to the left, loop through column

I need to move group codes out of their current column and move to the left 1 column. this is in a Macro because the rows will change based on the file/tables.
I've found an answer that seems as simple as the idea, but its not working for me.
The columns don't really change.

'Moving Group Codes

Dim cell As Range
For Each cell In Intersect(Range("C:C"), ActiveSheet.UsedRange)
    If Len(cell.Value) = 3 Then
        'Offset Paste (offsets 0 cells down and 1 to the LEFT)
    Selection.Copy
    Selection.Offset(, -1).Select
    ActiveSheet.Paste
    End If
Next cell

>Error: Run-time error '438'
Object doesn't support this property or method

Code getting error:

Selection.Offset(, -1).Select

Any help will be greatly appreciated.
Thank you,
Julie

I tried these codes: all fails

Selection.ColumnOffset(, -1).Paste

Selection.ColumnOffset(, -1).Select
ActiveSheet.Paste

I'm sure I tried more, but they all failed.

This morning I took another look and found a solution that worked like a CHARM!

Dim cell As Range
For Each cell In Intersect(Range("C:C"), ActiveSheet.UsedRange)
    If Len(cell.Value) = 3 Then
    cell.Cut Destination:=cell.Offset(columnoffset:=-1)
    End If
Next cell

I couldn't be Happier with the results and simplicity of the code.