Macro ComboBox problem

[Puggwash63]

I have generated an Excel worksheet with one ComboBox when clicked on the dropdown box shows Days (Sun - Sat).
Below the ComboBox are cells that when filled in gives a score in the Total cell at the bottom.
There is an 'Update' button to send the score to another sheet.

I wanted to place an additional 2 ComboBox dropdown boxes totalling 3 so that each Team can use the same sheet to score and I can monitor each Teams performance.

The Macro when running with the 3 Comboboxes will only display in the 1st score sheet and the days shows on all 3 ComboBox cells no matter which ComboBox I choose.

Can anyone help with fixing the problem I have as Im not that clued up with working Macro formulas out with the ComboBoxes.

This is the Macro I have running:

Private Sub ClearButton_Click()
Worksheets("AuditForm").Activate
Range("H11:L15,H17:L21,H23:L27,H29:L33,H35:L39").Select
Selection.ClearContents
ComboBox1.Activate


End Sub
Private Sub ComboBox1_Change()
End Sub


Private Sub ComboBox1_Click()



End Sub
Private Sub ComboBox1_DropButt*******()


End Sub
Private Sub ComboBox2_Change()
End Sub
Private Sub ComboBox3_Change()
End Sub
Private Sub UpdateButton_Click()
Set currentCell = Worksheets("5-S Assessment Charts").Range("B11")
While currentCell <> ComboBox1.Text
Set nextCell = currentCell.Offset(0, 1)
Set currentCell = nextCell
Wend
Dim rw As Integer
Dim col As Integer
rw = currentCell.Row + 1
col = currentCell.Column
Worksheets("AuditForm").Range("Total").Copy
Worksheets("5-S Assessment Charts").Cells(rw, col).PasteSpecial Paste:=xlValues
Set currentCell = Worksheets("5-S Assessment Charts").Range("A27")
End Sub
Private Sub UpdateButton_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
End Sub
Private Sub UpdateButton_GotFocus()
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
End Sub