# How can Array be used to copy from a horizontal single-row range (50 contiguous cells) to non-contiguous vertical ranges of 10cells each?

I'm trying to copy a static single-row horizontal range to five non-contiguous vertical static ranges.  They both have the same number of cells.

This is my code that doesn't work:
Range("\$AV\$76:\$AV\$85,\$BA\$76:\$BA\$85,\$BG\$76:\$BG\$85,\$BM\$76:\$BM\$85,\$BS\$76:\$BS\$85").value = Range("\$AN\$5:\$CK\$5").value

Thanks, --Andres
###### Who is Participating?

EngineerCommented:
Since the gap between the first two ranges is different from the gap between the remaining ranges you will have to use something like

Sub transnoncont()
Range("\$AV\$76:\$AV\$85").Value = WorksheetFunction.Transpose(Range("\$AN\$5:\$AW\$5"))
Range("\$BA\$76:\$BA\$85").Value = WorksheetFunction.Transpose(Range("\$AX\$5:\$BG\$5"))
Range("\$BG\$76:\$BG\$85").Value = WorksheetFunction.Transpose(Range("\$BH\$5:\$BQ\$5"))
Range("\$BM\$76:\$BM\$85").Value = WorksheetFunction.Transpose(Range("\$BR\$5:\$CA\$5"))
Range("\$BS\$76:\$BS\$85").Value = WorksheetFunction.Transpose(Range("\$CB\$5:\$CK\$5"))
End Sub
0

Commented:
You can't do that. You will have to do it in 5 separate chunks.
0

Author Commented:
Thanks for the solution.  Works great.  --Andres
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.