Copy/Paste Array Data into Row Cells

[Hawk]

I have a program created in 2003 and last made revisions in 2013. Unfortunately I have not been keeping up with my coding skills so need some help with taking data from an array and copying into cells in a row. Following is the code to create the array:

Please Login or Register  to view this content.

I want to copy the numbers in the holdindex to Columns C:J for each row an array is created unless there are less than 4 values.

Thanks for any help you can provide...

[AlphaFrog]

This puts the holdnumbers array in C:J in row j

Please Login or Register  to view this content.

[Hawk]

Thanks for your response! Unfortunately it results in a runtime 1004 error. Tried various scenarios with 'Compile error - expected array.' Following is where I inserted the line:

Please Login or Register  to view this content.

[PCI]

Perhaps,
NOT TESTED

Please Login or Register  to view this content.

[Hawk]

Folks, thanks for your help but I'm still not finding a solution that works like I need. I tried different iterations of both potential solutions and following is the one that came losest to providing the result needed:

Please Login or Register  to view this content.

Returns just the 1st number of the array in Col. "C" where all numbers up to 8 total are needed in Cols. "C":"J". I tried:

Please Login or Register  to view this content.

Returns the values in the last array in every cell from Row 3, Cols. "C : J" to the end of the worksheet.

If you have any further ideas they would be appreciated.

[AlphaFrog]

These two should both work

Rows(j).Range("C1:J1").Value = holdnumbers

Range("C" & j).Resize(, 8).Value = holdnumbers

[Hawk]

Thank You! The 2nd one did it!