Dim e(1 To UBound(a), 1 To UBound(aColumns) + 1)

ReDim Preserve e(1 To num, 1 To UBound(aColumns) + 1)

Function GetTableBodyRange(aColumns, a)
    Dim e(), i, j, num, cnt
    For i = 1 To UBound(a)
        'проверка строки на пустоту
        cnt = 0
        For j = LBound(aColumns) To UBound(aColumns)
            If VarType(a(i, aColumns(j))) = vbEmpty Then
                cnt = cnt + 1
            Else
                Exit For
            End If
        Next j
        'добавление непустой строки - столбцом в массив, развернутый на 90 градусов
        If cnt < UBound(aColumns) + 1 Then
            num = num + 1
            'увеличиваем вторую размерность развернутого массива
            'т.е. добавляем столбец, который в конце концов станет строкой
            ReDim Preserve e(1 To UBound(aColumns) + 1, 1 To num)
            For j = LBound(aColumns) To UBound(aColumns)
                If VarType(a(i, aColumns(j))) = vbDate Then
                    'преобразование дат в привычный формат
                    e(j + 1, num) = Format(a(i, aColumns(j)), "dd.mm.yyyy")
                Else
                    e(j + 1, num) = a(i, aColumns(j))
                End If
            Next j
        End If
    Next i
    'обратный разворот массива на 90 градусов - столбцы становятся строками
    GetTableBodyRange = WorksheetFunction.Transpose(e)
End Function

Sub test_()
    Dim a
    a = Sheets("List").ListObjects("tblOrder").DataBodyRange.Value
    Me.ListBox1.List = GetTableBodyRange(Array(1, 4, 2, 3), a)
End Sub