Hallo,
der Fehler stimmt schon ... du hast nur ein 'End If' ganz unten ... dann brauchst du ab dem zweiten If ... 'ElseIf' ...
ElseIf Range("E5") = 4 Then
Bis ganz runter natürlich jedes If durch ElseIf ersetzen.
Sabina