excel vba

[bart1222]

erow = Blad4.Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Row
Cells(erow, 3).Select
ActiveCell.Value = "=if(B" & erow & "=Blad1!B2;Blad1!C2)+if(B" & erow & "=Blad1!B3;Blad1!C3)+if(B" & erow & "=Blad1!B4;Blad1!C4)"
Cells(erow, 1).Select
ActiveCell.Value = "=if(B" & erow & "=Blad1!B2;Blad1!A2)+if(B" & erow & "=Blad1!B3;Blad1!A3)+if(B" & erow & "=Blad1!B4;Blad1!A4)"

Ik heb dit in de visual basic van excel staan maar ik krijg steeds de melding:

Fout 1004 tijdens uitvoering:

Door de toepassing of object gedefinieerde fout

Wat kan ik hieraan doen ik heb al heel veel geprobeerd maar het lukt niet Help me als je blieft.