Writing To Sheet From Array

I have an single dimension array called "Test". I have a range of one column called "Vol8_P1". Both are 1200 in size. I want to write the array to the sheet.

This code works:

i = 1
For Each c In [Vol8_P1]
c.Value = Test(i)
i = i + 1
Next c

But this code give me all zeroes:

Dim Destination As Range
Set Destination = Range("Vol8_P1")
Destination.Value = Test

I tried resizing "Destination" in the second code piece and that did not work.