On Monday, July 28, 2014 12:35:44 AM UTC-7, Claus Busch wrote:
Hi Howard,



Am Mon, 28 Jul 2014 00:18:13 -0700 (PDT) schrieb L. Howard:



I did not have any specific copy need, just wanted a working example of the mid range column target.



As I read the code, It looks to see if Q10 is blank and if it is blank then copy to Q10 otherwise offset from previous copy.



the IF-statement is superfluous:



Sub CopyToRange_ArrOut()

Dim arrOut As Variant

Dim FERow As Long



With Sheets("Sheet1")

arrOut = .Range("C12:F12")



FERow = WorksheetFunction.Max(10, .Cells(20,

"Q").End(xlUp).Offset(1, 0).Row)

.Cells(FERow, "Q").Resize(columnsize:=4) = arrOut



End With

End Sub





Regards

Claus B.

--

Vista Ultimate / Windows7

Office 2007 Ultimate / 2010 Professional


Great.

Thanks again, Claus.

Howard