Macros to SUM by conditional formatting

Hi, kindly help the macros for sum all from row A to particular cell

IF column A =
Fb Store
Dry Good Store
FB Kitchen
Food Riva
Pastry Kitchen
then D:2 will create "food" and E2 will sum all of them

IF Column A =
Beverage Store
then D3 will create " Beverage Store" and copied the amount in E3

IF Column A =
Beverage Riva
then D4 will create " Beverage Riva" and copied the amount in E4

IF Column A =
Bistro
then D5 will create " Bistro" and copied the amount in E5

IF Column A =
Engineering
Engineering Store
then D6 will create " Engineering" and copied the amount in E6

IF Column A =
Acct/Finance
Concierge
Front Office
Housekeeping
FB Admin
Housekeeping Store
HRD
Laundry
Premier
Reservation
Stewarding
Stewarding Store
Non FB Banquet
Non FB Riva
Non FB Cafe One
Non FB Riva
Non FB Room Service
Non FB Lobby Lounge
Non FB Pastry Kitchen
Business Centre
Sales & Marketing
General Store
then D7 will create " GS" and copied the amount in E7
then E8 is sum of E1:E7

Regards,
Andy

Hi John,

superb John working perfectly. Thx very much.

I have another case but no one response, could you please kindly see this case whether it's possible or not to create the macros

http://www.excelforum.com/excel-prog...t=#post4169669

Best Regards,
Andy