I thought that this would be so easy. Here's what I have:

Sub make_array3()
Dim myarray() As Variant
     Do
        myarray(i) = Sheets("Sheet1").Cells(i, 3).Value
        i = i + 1
    Loop Until IsEmpty(i)
        
Sheets("Sheet1").Range("D2:D10").Value = myarray

End Sub
The excel cells with values start in C1 on the Sheet1 tab.
I get a run time error 1004 in the line: myarray(i) = Sheets("Sheet1").Cells(i, 3).Value

I am only recopying the data to Column D to see if it is working.
Please tell me it is something simple.

ducc