Moving data to another column

[sergemaster]

Hey guys,
Sergmaster here, and I have one more Excel Q that needs an A to an issue that I've been working on.

What I need to do is to MOVE the contents of every third cell once again located in in column C decending, and move it into column B decending.

My first cell is C3 and ending at C28206. All that data needs to be moved over to B3 and ending at B28206.

Cheers,
Serge

 

[Tinbendr]

Sub MoveInThrees()
'C3 and ending at C28206
Dim A As Long
With ActiveSheet
    For A = 3 To 28206 Step 3
        .Range("C" & A).Cut .Range("B" & A)
    Next
End With
End Sub