Code check

[Alisya]

Hi, is there a better way of showing this?

With .Range("C:C")
.Cut Range("G:G")
End With
.Range("C:C").Delete

 

[VoG]

Hi. Perhaps

With .Range("C:C")
    .Cut .Range("G:G")
    .Delete
End With

 

[Alisya]

I ran the code and it copied to col I, bizzare

Hi. Perhaps

With .Range("C:C")
    .Cut .Range("G:G")
    .Delete
End With

 

[VoG]

At first sight, yes bizarre. That's because of the With .Range("C:C"). This should do what you want:

Sub test()
With ActiveSheet
    .Columns("C").Cut Destination:=.Range("G1")
    .Columns("C").Delete
End With
End Sub