Exporting Array Into Cells

The code below is part of a program i'm trying to create. The first part of my program creates and 16 by x array where x is the number of rows from splitting up a string from a text box. Now that I have that part completed. i wanted to add the information back into a new sheet. I tried writing this code but when i get to the point of filling the cells with a value it gives me a range error.

Code:
For p = 0 To UBound(Detailarray)
For q = 0 To 15
Sheet2.Range(Cells(p + 1, q + 1)).Value = Detailarray(q, p)
Next q
Next p
End Sub