Part of your solution will probably need this code:
Find the very last used cell in a Column:
Sub LastCellInColumn()
Range("A65536").End(xlup).Select
End Sub
Since you know "B" is the column with the last data, change the code to
read:
Range("B65536").End(x1up).Select
Perhaps one of the more experienced members of this group can show us
how to use this...
--
Campbellj4
------------------------------------------------------------------------
Campbellj4's Profile:
http://www.excelforum.com/member.php...o&userid=28506
View this thread:
http://www.excelforum.com/showthread...hreadid=481003