Добавление выбранного элемента из ListBox на другой лист

[jojola]

подскажите пожалуйста как сделать следующую вещь:
есть форма, на ней listbox и две кнопки, которая должна добавлять на другой лист то, что выбрано в ListBox.
какой код необходим для кнопки? У меня есть, но выдает ошибку и заполняет неправильно.Уже все испробовала, подскажите пожалуйста!
Private Sub CommandButton2_Click()
R = Application.CountA(Sheets("Расписан ие").Range("A:A"))
n = 0
For i = 0 To ListBox1.ListCount
If ListBox1.Selected(i) = True Then
film = ListBox1.List(i, 1)
For k = 6 To R + 10
If Sheets("Отчет").Cells(k, 1) = "" Then
Sheets("Отчет").Cells(k, 1) = ListBox1.List(n, 0)
Sheets("Отчет").Cells(k, 2) = ListBox1.List(n, 1)
Sheets("Отчет").Cells(k, 3) = ListBox1.List(n, 2)
Exit For

End If
n = n + 1
Next k
End If
Next i
End Sub

[fbus]

добавить во 2
listbox2.Items.Add(listbox1.Items.S trings[listbox1.Itemindex];
стереть из 1го
listbox1.DeleteSelected;

[jojola]

Спасибо, но я имела ввиду на другой лист в Excel, а не на другой ListBox))