Выбор отдельных элементов из нескольких столбцов в ListBox

Question

Я пытаюсь создать список с заголовками столбцов моих данных, чтобы использовать их в качестве входных данных от пользователя, для которых столбцы, которые пользователь хочет отображать в конечном результате. До сих пор я был в состоянии разделить список на две колонки и заполнить соответствующие данные в нем, но при выборе элементов он выбирает полную строку, а не отдельные элементы.

Подскажите, пожалуйста, как я могу выбрать отдельные элементы из многоколоночного списка.

Вот код:

Private Sub ListBox1_Enter()
Dim firstrow As Range
Dim c_no As Integer
Dim Arr() As String
Dim i As Integer
Dim j As Integer

Set firstrow = ThisWorkbook.Sheets("Tag Dump").Range("A1:AR1")
With firstrow
c = .Cells.Count
End With
Application.ScreenUpdating = False

ReDim Preserve Arr(c, 2)

'If WorksheetFunction.IsEven(c) = True Then
For i = 1 To c / 2
    Arr(i, 1) = Sheets("Tag Dump").Cells(1, i).Value
    Arr(i, 2) = Sheets("Tag Dump").Cells(1, i + (c / 2)).Value

'ElseIf WorksheetFunction.IsEven(c) = False Then
'End If

With ListBox1
    .ColumnCount = 2
    .Additem
    .List(i - 1, 0) = Arr(i, 1)
    .List(i - 1, 1) = Arr(i, 2)

End With
Next
With ListBox1
    .ListStyle = fmListStyleOption
    .Font = "Arial"
    .MultiSelect = fmMultiSelectExtended
End With
Application.ScreenUpdating = True
End Sub

Вот изображение результата I ' m получение: Выбор списка

Заранее спасибо.