Spørgsmål til Array, Range og Variant

Hej eksperter

Jeg har to spørgsmål til jer

1:

Dim MyArray(0 To 1000) As Variant
 
While Cells(1, i).Value > 0                                                               
  MyArray(i) = Cells(1, i).Value
  i = i + 1
Wend

Nu vil jeg gerne skrive "MyArray" i kolonne A og jeg bruger:
 
While Cells(1, j).Value > 0
  Cells(j, 1).Value = MyArray(j)
  j = j + 1
Wend

Men med 1000 eller flere tal så tager det noget tid! Jeg har leget lidt med:

  Range("A1:A1000") = Application.Transpose(MyArray)

Men jeg kan ikke få det til at fungere. Hvad gør jeg galt?

---------------

2:

Der skal skæres hhv 20, 25 og 15 rør af længderne 100, 120 og 150 fra et stort rør som er 1000.

Dim DemLen(100, 120, 150) As Variant
Dim Demand(20, 25, 15) As Variant
Dim Prod(0, 0, 0) As Variant

MaxLen = 100
i = 0
j = 0

While Prod(j) <= Demand(j)
  If Prod(j) >= Demand(j) Then
      j = j + 1
  End If                                                               
  While DemLen(i) <= MaxLen And DemLen(i) > 0                                                 
      If Prod(i) < Demand(i) Then
        Prod(i) = Prod(i) + 1
        Cells(j, i).Value = Cells(j, i).Value + 1
        MaxLen = MaxLen - DemLen(i)
      ElseIf MaxLen > DemLen(i) Then                                                                 
        i = i + 1                                                                                     
      ElseIf Demand(i) - Prod(i) = 0 Then                                                           
        i = i + 1                                                                                     
      End If                                                                                 
  Wend
Wend

Det fungerer egentligt som det skal, men følgende linje gør det hele ret langsomt:

  Cells(j, i).Value = Cells(j, i).Value + 1

Er der en måde hvorpå jeg kan opsamle dete hele i en tabel og så skrive det hele til sidst vha

  Range("A1:C3")=[et eller andet smart]

Det jeg mangler er egentlig en tabel hvor jeg kan hente tallene ud vha række og kolonnenummer.

Håber i kan hjælpe.