Code:

```
Case "1"
If Range("A1") = "bbb" And Range("B1") = "aaa" And
Range("I1") = "ccc" Or Range("I1") = "ddd" Or Range("I1") = "eee" Then
Range("N1").Value = 25
ElseIf Range("A1") = "aaa" And Range("B1") = "bbb" And
Range("I1") = "ccc" Or Range("I1") = "ddd" Or Range("I1") = "eee" Then
Range("N" & I).Value = 35
ElseIf Range("A1") = "bbb" And Range("B1") = "aaa" Then
Range("N1").Value = 30
```

Code:

```
Case "1"
If Range("A1"&"B1"&"I1")= "bbbaaaccc" Or "bbbaaaddd"
Or "bbbaaaeee":Range("N1)=25
ElseIf Range("A1"&"B1"&"I1")= "aaabbbccc" Or "aaabbbddd"
Or "aaabbbeee":Range("N1)=35
ElseIf Range("A1"&"B1")= "bbbaaa": Range("N1")=30
```

Code:

```
Case "1"
Select Case Range("A1") & Range("B1")
Case "bbbaaa": Range("N1") = 30
End Select
Select Case Range("A1") & Range("B1") & Range("I1")
Case "bbbaaaccc","bbbaaaddd",bbbaaaeee": Range("N1") = 25
Case "aaabbbccc","aaabbbddd","aaabbbeee": Range("N1") = 35
End Select
.....
```