1. Can't you just use worksheet function SUMIF() ?
Code:
--------------------
2. LastRow=activesheet.range("A65536").End(xlup).Row
--------------------
--
BrianB
------------------------------------------------------------------------
BrianB's Profile:
http://www.excelforum.com/member.php...info&userid=55
View this thread:
http://www.excelforum.com/showthread...hreadid=386373