VBA code to rearrange data into multiple columns

Hello there,

I have a worksheet with data arranged in descending order based on column A value. What I'm trying to do is to arrange the data into separate columns, as in the rows with the highest value in column A stay in the same place, rows with value -1 are cut and pasted to the first blank cell to the right and so on (sample workbook attached).

I understand that this requires some kind of loop. I'd be grateful for any help.

Sub RearrangeData()

Dim LastRow as Long
Dim FirstEmptyColumn as Long
Dim Maximum as Byte

LastRow = Cells(Rows.Count, 1).End(xlUp).Row
FirstEmptyColumn = Cells.Find("*", [A1], , , xlByColumns, xlPrevious).Column + 1
Maximum = Range("A1").Value

'I'm not sure how to put it in a loop, the bit below is wrong, I'm just trying to grasp the logic of it
Do Until IsEmpty (Range("A:A") 
If Range("A:C" & LastRow).Value = Maximum - 1 Then Range("A:C" & LastRow).Cut FirstEmptyColumn.Paste
Loop

End Sub

Thanks in advance for any suggestions.

Regards,
shinobi

Sub macro_1()
Dim count, cur_num, cur_col
count = 1
cur_col = 1
cur_num = Cells(count, cur_col)
Do Until Cells(count, cur_col) = ""
    If Not Cells(count, cur_col) = cur_num Then
        Range(Cells(count, cur_col), Cells(Rows.count, cur_col + 2)).Cut Cells(1, cur_col + 3)
        cur_col = cur_col + 3
        cur_num = Cells(1, cur_col)
        count = 0
    End If
    count = count + 1
Loop
End Sub

?

Thanks yudlugar!

this is exactly what I was trying to do!