On Jul 3, 6:51*pm, "joeu2004" wrote:
Some minor comments....

"joeu2004" wrote:
outRng.Resize(1, chkNum + 1).EntireColumn.Clear

The use of chkNum+1 instead of chkNum is an aesthetic choice. *If the
previous run use a large chkNum, I preferred to have one column separation
between new and old data. *Of course, it would be better to clear everything
down from and to the right of outRng. *But I was not sure if that might wipe
out other important data.

I wrote

rowNum = rowNum + 1
outRng.Cells(rowNum).Resize(1, nElements) = outData

This can be made more efficient. *For example (untested):

Set outRng = outRng.resize(1,nElements) *' above Do loop
[....]
outRng.Offset(rowNum,0) = outData * * *' inside Do loop
rowNum = rowNum + 1

This is the link to the file I have and modified to do what I wanted.
https://skydrive.live.com/redir.aspx...FFE7 69AB!161