Dividing the Items of an Array over multiple Columns

[Jonathan78]

Hi all,

IMG1.jpg

I'm trying to divide the items of an array over 3 columns
Like in the image above.

I've tried the following but without succes

Ar3 = Worksheets("DBS").Range("J2:AD2")

    j = 1
    For i = 1 To UBound(Ar3)
        If j = 3 Then j = 1
            Worksheets("RSTR").Cells(77 + i, 4 + j).Value = Ar3(i, 1)
        j = j + 1
    Next i