<dancingintheaisle Merjet, thanks so, so much for your help. It worked
perfectly. Did a copy-paste of the new code for second column, changed a
couple of things and it worked beautifully. </dancingintheaisle

I am not familiar with the 'iEnd' keyword. A search of Excel or VBA Editor
did not yield any help. Is there some place I can access that will help me in
discovering things like this?

Super Duper thanks again.
--
Misanthrope


"merjet" wrote:

Befo Selection.Copy
Insert: iEnd = Range("B2").End(xlDown).Row

Replace: Range("D:D").Select
With: Range("D3:D" & iEnd).Select

Hth,
Merjet