Hallo Sam, für solche Fallunterscheidungen bietet sich "select case" an.
select case cells(8,2) case 2 Summenbildung zu B8=2 case 3 ... ... case else end select
Für Einzeheiten empfehle ich die VBA-Hilfe