Private Sub CommandButton1_Click()
Dim i, y As Integer
'Dim arr()
y = 1
Sheets("Лист1").Range("E1:E156").Clear
For i = 1 To ListBox1.ListCount
If ListBox1.Selected(i) = True Then
MsgBox (ListBox1.List(i))
Sheets("Лист1").Cells(y, 5) = ListBox1.List(i)
y = y + 1
End If
Next
End Sub
Private Sub UserForm_Initialize()
BLastRow = Cells(1, 2).End(xlDown).Row 'находим индекс последней заполненной строки
ListBox1.List = Sheets("Лист1").Range("B2:B" & BLastRow).Value 'добавляем все значения в список
End Sub
jkx, я вот не поленился и сделал пример. А Вы вместо примера показываете свой рабочий файл с кучей ненужных данных. Зачем? В следующий раз поступайте аналогично - создавайте файл-пример.