Private Sub UserForm_Initialize()
With ListBox1
        .AddItem "Первый (ВИ)"
        .AddItem "Россия 1   (ВИ)"
        .AddItem "РЕН ТВ(ВИ)"
        .AddItem "ТВ3 (ВИ)"
        .AddItem "Россия 2   (ВИ)"
        .AddItem "Ю (ВИ)"
        .AddItem "Пятница (ВИ)"
        .AddItem "2 x2 (ВИ)"
        .AddItem "Пятый канал(ВИ)"
        .AddItem "Disney (ВИ)"
        .AddItem "ТВ Центр(ВИ)"
        .AddItem "Звезда (ВИ)"
        .AddItem "Карусель (ВИ)"
End With

With ListBox2 ' Выводим на ллистбок каналы которых есть в плане
    '.ColumnHeads = True
    .RowSource = Range(Cells(12, 4), Cells(31, 4)).Address ' < тут, тот же список по каналам, как и в listbox1, только в ячейках Excel
    .MultiSelect = fmMultiSelectSingle
    '.TextColumn = 1
    '.BoundColumn = 0
End With
    
    
End Sub

Option Explicit
Dim j, p, NumRow, NumCol, iRow, iCol As Integer
'Dim a As Range, c As Range
Dim iArray(1 To 9) 'указываем размерность массива (5 элементов: от 1 до 5)
Dim yArray() 'объявляем массив. Размерность массива ниже в коде не указываем.
Dim y, i As Variant


Private Sub UserForm_Initialize()
'Заполняем массив (iArray)
iArray(1) = "Первый"
iArray(2) = "Россия 1"
iArray(3) = "РЕН ТВ"
iArray(4) = "ТВ3"
iArray(5) = "Россия 2"
iArray(6) = "Ю"
iArray(7) = "Пятница"
iArray(8) = "2x2"
iArray(9) = "Пятый канал"
'iArray(10) = "Disney (ВИ)"
'iArray(11) = "ТВ Центр(ВИ)"
'iArray(12) = "Звезда (ВИ)"
'iArray(13) = "Карусель (ВИ)"
'iArray(14) = "СТС (СТС)"
'iArray(15) = "Перец (СТС)"
'iArray(16) = "Домашний (СТС)"
'iArray(17) = "СТС Love(СТС)"
'iArray(18) = "ТНТ (ГПМ)"
'iArray(19) = "НТВ (ГПМ)"
'iArray(20) = "Россия 24"

'MsgBox "3-й элемент массива равен: " & iArray(3)
 

'заполняем диапазон для массива yArray.
NumRow = 0 ' счет по строкам
While Worksheets(1).Cells(12 + NumRow, 4).Value <> ""
    NumRow = NumRow + 1
Wend
   'MsgBox Worksheets(1).Cells(10 + NumRow, 4).Value
   
yArray = Range(Cells(12, 4), Cells(10 + NumRow, 4)).Value

With ListBox1 ' Выводим на ллистбокc каналы которых нет в плане
    For i = LBound(iArray) To UBound(iArray)
        For y = LBound(yArray) To UBound(yArray)
            'MsgBox yArray(y, 1) & " = " & iArray(i)
            If iArray(i) = yArray(y, 1) Then
                'MsgBox "равно " & iArray(i) & " = " & yArray(y, 1)
                Exit For
            ElseIf iArray(i) <> yArray(y, 1) Then
                .AddItem iArray(i)
                Exit For
            End If
        Next y
    Next i
End With
      
With ListBox2 ' Выводим на ллистбок каналы которых есть в плане
For y = LBound(yArray) To UBound(yArray) 'цикл от нижней границе массива до верхней границы массива
    'MsgBox y & "-й элемент массива равен: " & yArray(y, 1) 'y - строка, 1 - это столбец
    .AddItem yArray(y, 1)
Next y
End With

    
    
End Sub

            For y = LBound(yArray) To UBound(yArray)
                If yArray(y, 1) = sChannelBuffer Then
                    bChannelFound = True
                    Exit For
                End If
            Next

If Not bChannelFound Then .AddItem iArray(i)

If ListBox1.ListCount > 0 Then
    For i = LBound(iArray) To UBound(iArray)
     If ListBox1.Text = iArray(i) Then
        'MsgBox iArray(i)
        'MsgBox i
        MsgBox ListBox1.ListIndex
        ListBox2.ListIndex = i 
        AddItem ListBox1.Text
        ListBox2.AddItem ListBox1.Text
        ListBox1.RemoveItem ListBox1.ListIndex
    End If
    Next
End If