Please help me with the code that integrates the data called for the listbox

[saftawy1]

I Use this code to bring the data to the list box. It appears as in picture 2. It is required to appear as in picture 3, where the data is merged according to the name of the product. Picture 1 contains a table format and an Excel file attachment

TEST MERGE.xlsb
	N
11
kha

On Error Resume Next
Application.ScreenUpdating = False
      Dim wColmn, srng As Range
Dim i As Long
Const ContColmn As Integer = 7
    Set srng = ThisWorkbook.Sheets("KHA").Range("A1").Resize(1, ContColmn)
For i = 1 To ContColmn
    With Me.Controls("Label" & i)
           .Caption = srng(i)
        wColmn = wColmn & .Width & " "
    End With
Next '1111111111111111111111111111111111
    Dim x, ws As Worksheet, j As Long, lastrow As Long
    With Me.ListBox7
        .Clear
        Set ws = ThisWorkbook.Sheets("kha")
        x = Application.Match(Me.ComboBox1.Value, ws.Rows(1), 0)
        If Not IsError(x) Then
            lastrow = ws.Cells(Rows.Count, "A").End(xlUp).Row
                        Dim a, myCols, ii As Long
            ReDim a(1 To 7, 1 To lastrow)
            myCols = Array(1, 2, 3, 4, 5, 6, 7)

            For i = 2 To lastrow
                If Me.TextBox9 <> "" And InStr(ws.Cells(i, x), Me.TextBox9) <> 0 Then
                    j = j + 1
                    For ii = 0 To UBound(myCols)
                        a(ii + 1, j) = ws.Cells(i, myCols(ii)).Value
                    Next

                End If
            Next i
            '1111111111111111111111
                        For i = 2 To lastrow
                If Me.TextBox9 = "" Then
                    j = j + 1
                    For ii = 0 To UBound(myCols)
                        a(ii + 1, j) = ws.Cells(i, myCols(ii)).Value
                    Next

                End If
            Next i
            '1111111111111111111111

            ReDim Preserve a(1 To UBound(a, 1), 1 To j)
            .Column = a
        End If
        End With