Boa noite,

Pessoal consigo carregar 14 colunas no listbox, ou tem quantidade limitada para tal processo, pois uso meu código abaixo e não esta carregando a partir da coluna 10 não carrega

On Error Resume Next

Sheets("GerarRelatorio").Select

'-----------------------------------------------------------------------------
'Carrega listbox

    Dim cell As Range
    Dim rng As Range
    
    listControlePesquisa.ColumnWidths = "55;60;60;70;40;75;62;70;60;50;70;50;50;50"
    
    With ThisWorkbook.Sheets("GerarRelatorio")
        Set rng = .Range("A2", .Range("A2").End(xlDown))
    End With
    
    For Each cell In rng.Cells
        With Me.listControlePesquisa
            .ColumnCount = 16 'Define a qde de Colunas no Listbox

            If Trim(cell.Value) <> "" Then
                .AddItem cell.Value
                .List(.ListCount - 1, 1) = cell.Offset(0, 1).Value 'Coluna 1
                .List(.ListCount - 1, 2) = cell.Offset(0, 2).Value 'Coluna 2
                .List(.ListCount - 1, 3) = cell.Offset(0, 3).Value 'Coluna 3
                .List(.ListCount - 1, 4) = cell.Offset(0, 4).Value 'Coluna 4
                .List(.ListCount - 1, 5) = cell.Offset(0, 5).Value 'Coluna 5
                .List(.ListCount - 1, 6) = cell.Offset(0, 6).Value 'Coluna 6
                .List(.ListCount - 1, 7) = cell.Offset(0, 7).Value 'Coluna 7
                .List(.ListCount - 1, 8) = cell.Offset(0, 8).Value 'Coluna 8
                .List(.ListCount - 1, 9) = cell.Offset(0, 9).Value 'Coluna 9
                .List(.ListCount - 1, 10) = cell.Offset(0, 10).Value 'Coluna 10 FUNCIONA ATÉ AQUI
                .List(.ListCount - 1, 11) = cell.Offset(0, 11).Value 'Coluna 11 ERRO
                .List(.ListCount - 1, 12) = cell.Offset(0, 12).Value 'Coluna 12 ERRO
                .List(.ListCount - 1, 13) = cell.Offset(0, 13).Value 'Coluna 13 ERRO
                .List(.ListCount - 1, 14) = cell.Offset(0, 14).Value 'Coluna 14 ERRO
            Else
                Exit For
            End If
        End With
    Next cell
    
    lbTotal = listControlePesquisa.ListCount

'Finaliza carregar listbox