Iterate over two index variables to reorder an array

Hi,

I have to reorder my array and paste it to a sheet. I am trying to do this with a for loop that iterates over two index variables.

Sub example()

Dim MyArray() As Variant
Dim FirstElement As Range
Dim i As Integer
Dim j As Integer


Set FirstElement = Range("J1")
MyArray = Range(Cells(2, 2), Cells(17, 2)).Value

For i = 1 To 16
    For j = 1 To 16 Step 2
        FirstElement.Offset(j, 0).Value = MyArray(i, 1)
    Next j
Next i


End Sub

But I dont get it to work. I have attached example of my array. That better explains what I am trying to accomplish.

This works, but far from elegant and not very efficient.

I would like to reorder arrays in VBA and than paste to sheet.

k = 1
l = 2

For i = 1 To 8
    FirstElement.Offset(k, 0) = MyArray(i, 1)
    k = k + 2
Next i

For j = 9 To 16
    FirstElement.Offset(l, 0) = MyArray(j, 1)
    l = l + 2
Next j

beutiful, more efficient. thanks