if you write the values into the range instead of pasting the range is

not selected:



arrOut = Range("C12:O12")

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

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

Regards

Claus B.


Okay, I tried to do something like that but couldn't string it together. I had it in the back of my mind that almost all codes you have helped me with, seemed there was never a lingering range that was selected.

Thanks.

Howard