Cargar ListBox obviando ciertas líneas según campo de una celda en una columna especifica

Haces que la macro ordene en forma descendente para que todas las salidas estén en primer lugar, luego mediante una función contar contabilizas cuantas salidas hay, después ajustas el rngmirango2 a solo las salidas y listo, en el listbox unicamente se cargaran las salidas.

Sub cargalista()
With Workbooks("Gestion.xlsm").Sheets(ComboDni.Text).Activate 'Activa la Hoja segun el DNI seleccionado
               '
                'Declaración de variables
                '
                Dim strTabla As String
                Dim rngMirango As Range
                Dim rngMirango2 As Range
                Dim intColumnas As Integer
                strTabla = "MiTabla"
                On Error Resume Next
                '
                'Creamos el nombre a la tabla de la hoja activa
                '
                ActiveWorkbook.Names("MiTabla").Delete
                Set rngMirango = ActiveSheet.Range("B1").CurrentRegion
                With rngMirango
                    .Sort key1:=ActiveSheet.Range(.Columns(.Columns.Count).Address), order1:=xlDescending, Header:=xlYes
                    cuenta = WorksheetFunction.CountIf(.Columns(.Columns.Count), "salida")
                    Set rngMirango2 = .Resize(cuenta, .Columns.Count)
                End With
                With rngMirango2
                    .Name = strTabla
                    intColumnas = .Columns.Count
                End With
                '
                'Formateamos ListBox
                '
                With Lista
                    .ColumnCount = intColumnas
                    .ColumnWidths = "60 pt;60 pt"
                    .ColumnHeads = True
                End With
                Lista.RowSource = strTabla
                On Error GoTo 0
End With
End Sub

Hola, gracias por tu respuesta. Sin embargo el método efectivamente ordena la lista. Pero no carga los datos al listbox

¿En dónde esta el listbox?, ¿En la hoja?, ¿O en un formulario VBA?, ¿En cada hoja sgune el DNI?, su pudieras subir una imagen de tu información podría ver porque no sube los datos.

hola el listbox esta en un formulario. ComboDni es parte de este formulario.

El mismo contiene el nombre de la hoja a seleccionar.

Lo que hace la macro es cargar un rango de celdas en el listbox.

Para quitar unas líneas, tendrías que filtrar por los valores que digan "Salida".

Para mantener la propiedad ColumnHeads, debemos copiar lo filtrado a otra hoja.

Crea una hoja y le pones por nombre "temp"

Te anexo el código para filtrar la columna F con "Salida", llevar el resultado a la hoja "temp" y cargar en el listbox

Sub cargalista()
    With Workbooks("Gestion.xlsm").Sheets(ComboDni.Text).Activate 'Activa la Hoja segun el DNI seleccionado
        '
        'Declaración de variables
        '
        Dim strTabla As String
        Dim rngMirango As Range
        Dim rngMirango2 As Range
        Dim intColumnas As Integer
        strTabla = "MiTabla"
        On Error Resume Next
        '
        'Creamos el nombre a la tabla de la hoja activa
        '
        If ActiveSheet.AutoFilterMode Then ActiveSheet.AutoFilterMode = False
        ActiveWorkbook.Names("MiTabla").Delete
        Set rngMirango = ActiveSheet.Range("B1").CurrentRegion
        Set rngMirango2 = rngMirango.Offset(1, 1).Resize(rngMirango.Rows.Count - 1, _
            rngMirango.Columns.Count)
        rngMirango2.Name = strTabla
        '
        'Filtro de la hoja activa y se copia a la hoja temp
        '
        rngMirango.AutoFilter Field:=6, Criteria1:="Salida"
        Set ht = Sheets("temp")
        ht.Cells.ClearContents
        ActiveSheet.Rows(1).Copy ht.Rows(1)
        rngMirango2.Copy ht.Range("B2")
        Set rngMirango3 = ht.Range("B1").CurrentRegion
        Set rngMirango4 = rngMirango3.Offset(1, 1).Resize(rngMirango3.Rows.Count - 1, _
            rngMirango3.Columns.Count)
        rngMirango4.Name = strTabla
        intColumnas = rngMirango2.Columns.Count
        If ActiveSheet.AutoFilterMode Then ActiveSheet.AutoFilterMode = False
        '
        'Formateamos ListBox
        '
        With Lista
            .ColumnCount = intColumnas
            .ColumnWidths = "60 pt;60 pt"
            .ColumnHeads = True
        End With
        Lista.RowSource = strTabla
        On Error GoTo 0
    End With
End Sub

.

.

Hola dante funciona, sin embargo debería borrarse lo que se copia en esa hoja temporal. Además de eso al cargar la hoja temporal al listbox se me altera otro procedimiento que tengo más adelante, donde obtengo el numero de la fila seleccionada para poder proceder a modificar un campo de esa fila.