Private Sub btnOK_Click()
Dim ws As Worksheet
Set ws = Worksheets("Лист2")
Dim newRow As Long
newRow = Application.WorksheetFunction.CountA(ws.Range("A:A")) + 1
For i = 0 To Me.lbDays.ListCount - 1
If Me.lbDays.Selected(i) Then
ws.Cells(newRow, 1).Value = Me.lbDays.List(i) + " ": newRow = newRow + 1
End If
Next i
End Sub