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