Please can someone know how to trim this code. Any help will be appreciated
If Range("D8") = "EBU 2" Then
If ComboBox1.Text = "Level 4" Then
Sheets("Main").Range("C9") = Sheets("Main").Range("C9") + 1
Sheets("Main").Range("D9") = Sheets("Main").Range("D9") + Range("K8")
ElseIf ComboBox1.Text = "Level 5" Then
Sheets("Main").Range("E9") = Sheets("Main").Range("E9") + 1
Sheets("Main").Range("F9") = Sheets("Main").Range("F9") + Range("K8")
ElseIf ComboBox1.Text = "Level 6" Then
Sheets("Main").Range("G9") = Sheets("Main").Range("G9") + 1
Sheets("Main").Range("H9") = Sheets("Main").Range("H9") + Range("K8")
ElseIf ComboBox1.Text = "Level 7" Then
Sheets("Main").Range("I9") = Sheets("Main").Range("I9") + 1
Sheets("Main").Range("J9") = Sheets("Main").Range("J9") + Range("K8")
ElseIf ComboBox1.Text = "Lost" Then
Sheets("Main").Range("K9") = Sheets("Main").Range("K9") + 1
Sheets("Main").Range("L9") = Sheets("Main").Range("L9") + Range("K8")
End If
ElseIf Range("D8") = "EBU 5" Then
If ComboBox1.Text = "Level 4" Then
Sheets("Main").Range("C10") = Sheets("Main").Range("C10") + 1
Sheets("Main").Range("D10") = Sheets("Main").Range("D10") + Range("K8")
ElseIf ComboBox1.Text = "Level 5" Then
Sheets("Main").Range("E10") = Sheets("Main").Range("E10") + 1
Sheets("Main").Range("F10") = Sheets("Main").Range("F10") + Range("K8")
ElseIf ComboBox1.Text = "Level 6" Then
Sheets("Main").Range("G10") = Sheets("Main").Range("G10") + 1
Sheets("Main").Range("H10") = Sheets("Main").Range("H10") + Range("K8")
ElseIf ComboBox1.Text = "Level 7" Then
Sheets("Main").Range("I10") = Sheets("Main").Range("I10") + 1
Sheets("Main").Range("J10") = Sheets("Main").Range("J10") + Range("K8")
ElseIf ComboBox1.Text = "Lost" Then
Sheets("Main").Range("K10") = Sheets("Main").Range("K10") + 1
Sheets("Main").Range("L10") = Sheets("Main").Range("L10") + Range("K8")
End If
ElseIf Range("D8") = "EBU 6" Then
If ComboBox1.Text = "Level 4" Then
Sheets("Main").Range("C11") = Sheets("Main").Range("C11") + 1
Sheets("Main").Range("D11") = Sheets("Main").Range("D11") + Range("K8")
ElseIf ComboBox1.Text = "Level 5" Then
Sheets("Main").Range("E11") = Sheets("Main").Range("E11") + 1
Sheets("Main").Range("F11") = Sheets("Main").Range("F11") + Range("K8")
ElseIf ComboBox1.Text = "Level 6" Then
Sheets("Main").Range("G11") = Sheets("Main").Range("G11") + 1
Sheets("Main").Range("H11") = Sheets("Main").Range("H11") + Range("K8")
ElseIf ComboBox1.Text = "Level 7" Then
Sheets("Main").Range("I11") = Sheets("Main").Range("I11") + 1
Sheets("Main").Range("J11") = Sheets("Main").Range("J11") + Range("K8")
ElseIf ComboBox1.Text = "Lost" Then
Sheets("Main").Range("K11") = Sheets("Main").Range("K11") + 1
Sheets("Main").Range("L11") = Sheets("Main").Range("L11") + Range("K8")
End If
ElseIf Range("D8") = "EBU 7" Then
If ComboBox1.Text = "Level 4" Then
Sheets("Main").Range("C12") = Sheets("Main").Range("C12") + 1
Sheets("Main").Range("D12") = Sheets("Main").Range("D12") + Range("K8")
ElseIf ComboBox1.Text = "Level 5" Then
Sheets("Main").Range("E12") = Sheets("Main").Range("E12") + 1
Sheets("Main").Range("F12") = Sheets("Main").Range("F12") + Range("K8")
ElseIf ComboBox1.Text = "Level 6" Then
Sheets("Main").Range("G12") = Sheets("Main").Range("G12") + 1
Sheets("Main").Range("H12") = Sheets("Main").Range("G12") + Range("K8")
ElseIf ComboBox1.Text = "Level 7" Then
Sheets("Main").Range("I12") = Sheets("Main").Range("I12") + 1
Sheets("Main").Range("J12") = Sheets("Main").Range("H12") + Range("K8")
ElseIf ComboBox1.Text = "Lost" Then
Sheets("Main").Range("K12") = Sheets("Main").Range("K12") + 1
Sheets("Main").Range("L12") = Sheets("Main").Range("L12") + Range("K8")
End If
End If
and also this one
With ComboBox1
.AddItem ("")
.AddItem ("Level 4")
.AddItem ("Level 5")
.AddItem ("Level 6")
.AddItem ("Level 7")
.AddItem ("Lost")
End With
With ComboBox2
.AddItem ("")
.AddItem ("Level 4")
.AddItem ("Level 5")
.AddItem ("Level 6")
.AddItem ("Level 7")
.AddItem ("Lost")
End With
With ComboBox3
.AddItem ("")
.AddItem ("Level 4")
.AddItem ("Level 5")
.AddItem ("Level 6")
.AddItem ("Level 7")
.AddItem ("Lost")
End With
With ComboBox4
.AddItem ("")
.AddItem ("Level 4")
.AddItem ("Level 5")
.AddItem ("Level 6")
.AddItem ("Level 7")
.AddItem ("Lost")
End With
With ComboBox5
.AddItem ("")
.AddItem ("Level 4")
.AddItem ("Level 5")
.AddItem ("Level 6")
.AddItem ("Level 7")
.AddItem ("Lost")
End With
With ComboBox6
.AddItem ("")
.AddItem ("Level 4")
.AddItem ("Level 5")
.AddItem ("Level 6")
.AddItem ("Level 7")
.AddItem ("Lost")
End With
With ComboBox7
.AddItem ("")
.AddItem ("Level 4")
.AddItem ("Level 5")
.AddItem ("Level 6")
.AddItem ("Level 7")
.AddItem ("Lost")
End With
With ComboBox8
.AddItem ("")
.AddItem ("Level 4")
.AddItem ("Level 5")
.AddItem ("Level 6")
.AddItem ("Level 7")
.AddItem ("Lost")
End With
With ComboBox9
.AddItem ("")
.AddItem ("Level 4")
.AddItem ("Level 5")
.AddItem ("Level 6")
.AddItem ("Level 7")
.AddItem ("Lost")
End With
With ComboBox10
.AddItem ("")
.AddItem ("Level 4")
.AddItem ("Level 5")
.AddItem ("Level 6")
.AddItem ("Level 7")
.AddItem ("Lost")
End With
With ComboBox11
.AddItem ("")
.AddItem ("Level 4")
.AddItem ("Level 5")
.AddItem ("Level 6")
.AddItem ("Level 7")
.AddItem ("Lost")
End With
With ComboBox12
.AddItem ("")
.AddItem ("Level 4")
.AddItem ("Level 5")
.AddItem ("Level 6")
.AddItem ("Level 7")
.AddItem ("Lost")
End With
With ComboBox13
.AddItem ("")
.AddItem ("Level 4")
.AddItem ("Level 5")
.AddItem ("Level 6")
.AddItem ("Level 7")
.AddItem ("Lost")
End With
With ComboBox14
.AddItem ("")
.AddItem ("Level 4")
.AddItem ("Level 5")
.AddItem ("Level 6")
.AddItem ("Level 7")
.AddItem ("Lost")
End With
With ComboBox15
.AddItem ("")
.AddItem ("Level 4")
.AddItem ("Level 5")
.AddItem ("Level 6")
.AddItem ("Level 7")
.AddItem ("Lost")
End With
With ComboBox16
.AddItem ("")
.AddItem ("Level 4")
.AddItem ("Level 5")
.AddItem ("Level 6")
.AddItem ("Level 7")
.AddItem ("Lost")
End With
With ComboBox17
.AddItem ("")
.AddItem ("Level 4")
.AddItem ("Level 5")
.AddItem ("Level 6")
.AddItem ("Level 7")
.AddItem ("Lost")
End With
With ComboBox18
.AddItem ("")
.AddItem ("Level 4")
.AddItem ("Level 5")
.AddItem ("Level 6")
.AddItem ("Level 7")
.AddItem ("Lost")
End With
With ComboBox19
.AddItem ("")
.AddItem ("Level 4")
.AddItem ("Level 5")
.AddItem ("Level 6")
.AddItem ("Level 7")
.AddItem ("Lost")
End With
With ComboBox20
.AddItem ("")
.AddItem ("Level 4")
.AddItem ("Level 5")
.AddItem ("Level 6")
.AddItem ("Level 7")
.AddItem ("Lost")
End With
With ComboBox21
.AddItem ("")
.AddItem ("Level 4")
.AddItem ("Level 5")
.AddItem ("Level 6")
.AddItem ("Level 7")
.AddItem ("Lost")
End With
With ComboBox22
.AddItem ("")
.AddItem ("Level 4")
.AddItem ("Level 5")
.AddItem ("Level 6")
.AddItem ("Level 7")
.AddItem ("Lost")
End With
With ComboBox23
.AddItem ("")
.AddItem ("Level 4")
.AddItem ("Level 5")
.AddItem ("Level 6")
.AddItem ("Level 7")
.AddItem ("Lost")
End With
With ComboBox24
.AddItem ("")
.AddItem ("Level 4")
.AddItem ("Level 5")
.AddItem ("Level 6")
.AddItem ("Level 7")
.AddItem ("Lost")
End With
With ComboBox25
.AddItem ("")
.AddItem ("Level 4")
.AddItem ("Level 5")
.AddItem ("Level 6")
.AddItem ("Level 7")
.AddItem ("Lost")
End With
With ComboBox26
.AddItem ("")
.AddItem ("Level 4")
.AddItem ("Level 5")
.AddItem ("Level 6")
.AddItem ("Level 7")
.AddItem ("Lost")
End With
With ComboBox27
.AddItem ("")
.AddItem ("Level 4")
.AddItem ("Level 5")
.AddItem ("Level 6")
.AddItem ("Level 7")
.AddItem ("Lost")
End With
With ComboBox28
.AddItem ("")
.AddItem ("Level 4")
.AddItem ("Level 5")
.AddItem ("Level 6")
.AddItem ("Level 7")
.AddItem ("Lost")
End With