Yeah, it looks to me like you're trying to access row zero (doesn't exist).

Try the following instead:

For i = LBound(test) + 1 To UBound(test)
   Worksheets("Sheet2").Cells(i, 1) = test(i)
Next i