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