On Sunday, July 27, 2014 2:46:50 AM UTC-7, L. Howard wrote:
Hi Claus,



Hmmm, I must be leaving something out that you assumed I would know to do.

This does nothing, arrOut = Empty.



Sub CopyTest()



Dim arrOut As Variant



arrOut = Range("C12:O12")



Cells(Rows.Count, "Q").End(xlUp)(2) _

.Resize(columnsize:=Range("C2:O2").Columns.Count) = arrOut



End Sub



Howard

Hold everything! My Bad - My Bad.

I was thinking return goes to C but it was correctly going to Q which was off screen.

Sorry! Sorry!

Howard