Thank you sir. So I lied, I have one more question. If i
run this in several different columns...How do I keep it
from entering dupiclate entries?

Thanks,
Steven
-----Original Message-----
Steven

The whole thing works great. My last question is how do
i
change the start point on worksheet2. I have been
playing
with it and I can't figure it out.

Set Dest = Worksheets("Sheet2").Cells
(Rows.Count,
"A").End(xlUp)(2, 1)

This line starts at the last cell in column A, goes up
until it finds a cell
with data in it, then goes down 2 and to the right 1. If
you want the first
row to be, say, B10, then after this line put

If Dest.Row < 10 Then Set Dest = Worksheets
("Sheet2").Cells(10,"B")

--
Dick Kusleika
MVP - Excel
Excel Blog - Daily Dose of Excel
www.dicks-blog.com


.