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

Private Sub CommandButton2_Click()
r = 1 ' начало по строкам
For i = 0 To Me.ListBox1.ListCount - 1
If Me.ListBox1.Selected(i) Then
For j = 0 To Me.ListBox1.ColumnCount - 1
Sheets("Лист2").Cells(r, j + 1) = Me.ListBox1.List(i, j)
Next
r = r + 1
End If
Next
End Sub

Sheets("Лист2").Cells(r, j + 1) = Me.ListBox1.Value '?

Private Sub CommandButton1_Click()
Dim j As Integer
 
  For j = 0 To ListBox1.ColumnCount - 1
      Cells(1, 5 + j) = ListBox1.Column(j) ' В какой нужен лист 
  Next
 
End Sub

Private Sub CommandButton1_Click()
Dim j As Integer, nRow As Integer
  
  nRow = 5
  While Sheets("Отчет").Cells(nRow, 1) <> ""
    nRow = nRow + 1
  Wend
  
  For j = 0 To ListBox1.ColumnCount - 1
      Sheets("Отчет").Cells(nRow, j + 1) = ListBox1.Column(j)
  Next
  Sheets("Отчет").Cells(nRow, 6) = Date
 
  Sheets("Отчет").Activate
 
End Sub
 
Private Sub CommandButton2_Click()
  
  Bilet.Hide
  
End Sub

For y = 5 To r + 6
n = ComboBox5.ListCount
If n = 0 Then
ComboBox5.AddItem CStr(Sheets("Период проката").Cells(y, 2)), 0
Else
a = 0
For j = 0 To ComboBox5.ListCount - 1
If CStr(Sheets("Период проката").Cells(y, 2)) = ComboBox5.Column(0, j) Then
a = 1
Exit For
End If
Next j
If a = 0 Then ComboBox5.AddItem CStr(Sheets("Период проката").Cells(y, 2))
End If
Next y
End Sub

For y = 5 To r + 6
    n = ComboBox5.ListCount ' Количество записей в ComboBox5
    If n = 0 Then ' Если пустой
       ComboBox5.AddItem CStr(Sheets("Период проката").Cells(y, 2)), 0 ' Добавить новую запись
    Else ' Иначе
       a = 0 ' Принимает значения 0 или 1 (т.е. логическая переменная)
       For j = 0 To ComboBox5.ListCount - 1 ' Для всех записей в ComboBox5
           ' Если такая дата в ComboBox5 уже есть
           If CStr(Sheets("Период проката").Cells(y, 2)) = ComboBox5.Column(0, j) Then
              a = 1
              Exit For ' Дальше проверять смысла нет - выход из цикла
           End If
       Next j
       ' Если такой даты в ComboBox5 нет (a = 0)
       ' Добавляем её в ComboBox5
       If a = 0 Then ComboBox5.AddItem CStr(Sheets("Период проката").Cells(y, 2))
    End If
Next y

For y = 5 To r + 6
    ComboBox5.AddItem CStr(Sheets("Период проката").Cells(y, 2)) ' Добавить новую запись
Next y

Sub test()
    For y = 5 To r + 6    ' перебираем в цикле ячейки листа
        n = ComboBox5.ListCount    ' количество заполненных строк в комбобоксе
        If n = 0 Then    ' если кол-во строк = 0 ( комбобокс пустой), то
            ' то добавляем в его первый столбец значение ячейки Cells(y, 2) с листа "Период проката"
            ComboBox5.AddItem CStr(Sheets("Период проката").Cells(y, 2)), 0
        Else    ' иначе
            a = 0
            For j = 0 To ComboBox5.ListCount - 1    ' перебираем все записи в 1-м столбце комбобокса
                ' если значение ячейки Cells(y, 2) с листа "Период проката"
                ' уже присутствует в комбобоксе
                If CStr(Sheets("Период проката").Cells(y, 2)) = ComboBox5.Column(0, j) Then
                    a = 1
                    Exit For    ' то выходим из цикла
                End If
            Next j
            ' если a=0 - значит, значение в комбобоксе не найдено, поэтому добавляем его:
            If a = 0 Then ComboBox5.AddItem CStr(Sheets("Период проката").Cells(y, 2))
        End If
    Next y
End Sub

Private Sub OKButton_Click()
' кнопка продолжения загрузки
    Dim i, j As Integer
    
     For j = 0 To 33
        Worksheets("Исходные_Данные").Cells(j + 3, 22).ClearContents
        For i = 0 To ListBox2.ListCount - 1
            If Len(ListBox2.List(i)) Then
                Worksheets("Исходные_Данные").Cells(i + 3, 22).Value = ListBox2.List(i)
            End If
        Next i
     Next j
End Sub