On Thursday, January 16, 2014 12:09:26 PM UTC-8, Claus Busch wrote:
Hi Howard,



Am Thu, 16 Jan 2014 21:00:38 +0100 schrieb Claus Busch:



wksTarget.Cells(49, 1).End(xlUp)(2).Resize(columnsize:=4) = varRicho



if it could be that over 29 cells are empty but the output should not be

over 29 then change the code to:

With wksTarget

FERow = WorksheetFunction.Max(29, .Cells(49, 1).End(xlUp).Offset(1,

0).Row)

.Cells(FERow, 1).Resize(columnsize:=4) = varRicho

End With



Or look he

https://skydrive.live.com/#cid=9378A...121822A3%21326

for the workbooks, download and open both and run the macro.





Regards

Claus B.



The download was very informative!

That is really nice to be able to have a target block of cells for the input and not have to put artificial "stops" at the top AND be able to skip over some occupied cells below the target cells.

Thanks Claus.
Howard