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