organizing a db list

[kmc]

I have a list I need to maniuplte the data. I would like to move every third row in col b over to col c and up two rows. So R3Cb would move to R1Cc and so on down the range. thanks

 

[SydneyGeek]

Try:

Sub MoveIt()
    Dim c As Range
    
    For Each c In Range("B1:B" & Range("B65536").End(xlUp).Row)
        If c.Row Mod 3 = 0 Then
            c.Offset(-2, 1) = c.Value
            c.ClearContents
        End If
    Next c
End Sub

Denis