Private Sub CommandButton1_Click()
Dim dutyNumber As String
Dim startRow As Long
Dim i As Long
With Worksheets("SA Data")
dutyNumber = Me.ListBox1.Value
startRow = .Columns("E").Find(dutyNumber).Row
Do While .Cells(startRow + i, "E").Value = dutyNumber
Select Case .Cells(startRow + i, "B").Value
Case "Sun": .Cells(startRow + i, "K").Value = Me.Sunday.Text
Case "Mon": .Cells(startRow + i, "K").Value = Me.Monday.Text
Case "Tue": .Cells(startRow + i, "K").Value = Me.Tuesday.Text
Case "Wed": .Cells(startRow + i, "K").Value = Me.Wednesday.Text
Case "Thu": .Cells(startRow + i, "K").Value = Me.Thursday.Text
Case "Fri": .Cells(startRow + i, "K").Value = Me.Friday.Text
Case "Sat": .Cells(startRow + i, "K").Value = Me.Saturday.Text
End Select
i = i + 1
Loop
End With
End Sub