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.
--
Win XP PRof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2