Como exportar una matriz de datos?

Lo que necesito hacer es algo complejo así que tratare de explicarme lo mejor posible...

Resulta que tengo este formulario

En ese formulario el usuario primero debe seleccionar un capitulo, luego un subcapitulo y por ultimo un ítem, en cuanto selecciona el ítem automáticamente se le traen al Listbox la información de "Código" "Descripción" y "Unidad", si el quiere ver el resto de datos debe darle click al botón "Ver APU", y en ese momento el programa debe ir a la siguiente base de datos y traer los datos que voy a señalar

Tomando como ejemplo que el usuario eligiera " STC base asf.-4%asf, ag.1.5" ", el programa le debera llevar todos esos datos que están resaltados, lo mismo si hubiera elegido otro ítem (los de color rojo) se les debe llevar el rango comprendido entre un item y otro, pero como les dije el rango en cambiante entre un item y otro pueden haber 2 elementos y en otras partes 12, asiq ue no se como llevarme el rango especifico que necesito...
Espero haberme hecho entender, cualquier información adicional con gusto se las dares
PD. Este es el codigo que uso para buscar los datos

If Me.cbxitm.Value = "" Or Me.cbxitm.Value = " " Then
    Me.lbxAPU.Clear
    Else
    Me.lbxAPU.Clear
    j = 1
    Set Db = ThisWorkbook.Sheets("APU")
    Filas = Db.Range("C2").CurrentRegion.Rows.Count
    Me.lbxAPU.RowSource = ""
    For I = 2 To Filas
        If LCase(Db.Cells(I, j).Offset(0, 2).Value) Like "*" & LCase(Me.cbxitm.Value) & "*" Then
            Me.lbxAPU.AddItem Db.Cells(I, j).Offset(0, 1)
            Me.lbxAPU.List(Me.lbxAPU.ListCount - 1, 1) = Db.Cells(I, j).Offset(0, 2)
            Me.lbxAPU.List(Me.lbxAPU.ListCount - 1, 2) = Db.Cells(I, j).Offset(0, 3)
        Else
        End If
    Next I