VBA - Pasting 2d Array to worksheet. Why is it producing a blank column with everything shifted 1 column across?

[PTP86]

I'm trying to paste the dynamic array OutputArray to the worksheet starting in cell Q8 which I've given the name UniqueEntitiesOutput

ReDim OutputArray(1 To UniqueOutputs, 3)

The code then populates OutputArray and I now want to paste it to the worksheet

Here I've used select just so that you can see on the screenshot that I am telling it to use the intended range

Range("UniqueEntitiesOutput").Resize(UBound(OutputArray, 1), 3).Select
Selection = OutputArray

What's the result? (see 2nd screenshot)
It's outputting a column of blanks in Q (whereas it should be outputting 1st column of the array)
It's outputting the 1st column of the array in R (whereas it should be outputting 2nd column of the array)
It's outputting the 2nd column of the array in S (whereas it should be outputting 3rd column of the array)
It's not doing anything with the 3rd column of the array

Yet if I look at the Immediates window, the array is holding data the way I was expecting it to
?OutputArray(1,1)
Aviva plc
?OutputArray(1,2)
AV.
?OutputArray(1,3)
1


So why isn't it pasting the 3 columns of the array starting in column Q?


Thanks

 

[DanteAmor]

The code then populates OutputArray and I now want to paste it to the worksheet

You can put the code to populates the OutputArray , or put all your code.

 

[PTP86]

You can put the code to populates the OutputArray , or put all your code.

From the comment I've made about the immediates window, you can see that the array has populated as intended, and you can see what it looks like.

 

[DanteAmor]

Is it a problem for you to put all your code here?

 

[PTP86]

SOLVED : Knew it would be an obvious error ?
As expected, it's a fault in one of the bits of code that I did provide

ReDim OutputArray(1 To UniqueOutputs, 1 to 3)