Fill the worksheet using a Jagged Array faster

[ssmock1]

I know I can quickly fill a worksheet with an array referencing a value using something like this:
Dim thisArray(6 To 139, 6 To 40) As Variant
Dim x As String
dim row, col As Integer

for row from 6 to 139 step 1
for col from 6 to 40 step 1
thisArray(row, col) = row * col
next col
next row

x = "F6:AN139"
ActiveWorkbook.Sheets(1).Range(x) = thisArray

however, if "thisArray" references a one-dimensional array with two elements,

thisArray(6, 6) = Array(amt, errCode)

this type of assignment won't work. I'd like to select the first element in the referenced array to fill the range. I tried this but the compiler complained about the wrong number of dimensions.

Activeworkbook.Sheets(1).Range(x) = thisArray(0)

I've got it to work by going cell by cell and making the correct assignment, but it's slow compared to the direct assignment method referenced in the first example.

 

[Rick Rothstein]

I know I can quickly fill a worksheet with an array referencing a value using something like this:
Dim thisArray(6 To 139, 6 To 40) As Variant
Dim x As String
dim row, col As Integer

for row from 6 to 139 step 1
for col from 6 to 40 step 1
thisArray(row, col) = row * col
next col
next row

x = "F6:AN139"
ActiveWorkbook.Sheets(1).Range(x) = thisArray

however, if "thisArray" references a one-dimensional array with two elements,

thisArray(6, 6) = Array(amt, errCode)

this type of assignment won't work. I'd like to select the first element in the referenced array to fill the range. I tried this but the compiler complained about the wrong number of dimensions.

Activeworkbook.Sheets(1).Range(x) = thisArray(0)

I've got it to work by going cell by cell and making the correct assignment, but it's slow compared to the direct assignment method referenced in the first example.

If it is a one-dimensional, just make it a two dimensional array anyway and then you will be able to use the fast first example method (of course you will have to remember to tag on that second dimension when referencing the array in your code). I am thinking of something like this...

Dim thisArray(6 To 139, 1 To 1) As Variant
Dim x As String
dim row As Long
For row = 6 To 139
  thisArray(row, 1) = row * row
Next
x = "F6:F139"
ActiveWorkbook.Sheets(1).Range(x) = thisArray

Note1: The red "1 To 1" in the Dim statement creates the second dimension that will not change, the red 1 inside the loop is the "place-holder" for that second dimension.

Note2: The green "Long" in the Dim statement is better to use than Integer... in today's computers, there is nothing to be gained by restricting your variable to type Integer.