Sorry, typo:

Set DestCell = .Cells(LastRow + 1, "A")

And if the code still doesn't work, please indicate the line that fails.



wrote:

I still get
object variable or with block variable not set
and the routine stops

--

Dave Peterson