Данные в Листбокс из несмежных столбцов

[hamlook]

Доброго времени!
Есть код

Private Sub UserForm_Initialize()
ListBox1.List = Application.Transpose(Range("A2", Cells(2, Columns.Count).End(xlToLeft)).Value)
End Sub

Все нормально работает.
Но мне в листбоксе нужны не все столбцы, а, например, только "А", "С", "Е".
Как это можно сделать?
Спасибо.

[SAS888]

Но мне в листбоксе нужны не все столбцы, а, например, только "А", "С", "Е".
Как это можно сделать?

Сначала сформировать массив из требуемых значений, затем поместить эти значения в ListBox.
Пример во вложении.

[hamlook]

Большое спасибо, все прекрасно работает!