I did point out the likelyhood of missing named ranges in my early
reply.



L. Howard Kittle Wrote:


Range("mon").Copy Range("b1:b5").End(xlUp).Offset(1, 0)

This line is looking for named range "mon" and wants to copy it to the
B1:B5
range offset by 1 row. You want it to go to E75.

Looks like your biggest error is not naming the ranges as needed.
Once
named then we can change the old code to this. (minus the 's)




--
tony h
------------------------------------------------------------------------
tony h's Profile: http://www.excelforum.com/member.php...o&userid=21074
View this thread: http://www.excelforum.com/showthread...hreadid=516700