Looks like the best method I have seen so far.

One little question, how do I define the variable "xlCellTypeLastCell"?

I copy/pasted your VBA code below (to see it work) and keep getting the typical "Compile Error: Variable not defined" for xlCellTypeLastCell.

Is there a special way to define it?
As what?