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 ' Выводим на ListBox1 каналы которых нет в плане
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