Hrm,
this didnt work, it resulted in a few errors.
specifically regarding the line with
ws1.Range("B7", Range("B7"). _
End(xlDown)).Offset(0, -1).Resize(, 2).Copy
--
TTomSawyer
------------------------------------------------------------------------
TTomSawyer's Profile:
http://www.excelforum.com/member.php...o&userid=20511
View this thread:
http://www.excelforum.com/showthread...hreadid=395945