VBa to add data in listbox multiple column

You need to specify the ColumnCount for your listbox. You also need to increment the variable j between each column being added. The variable j also needs to be reset to 1 as each new row is added:

Sub TestListBox()
    Dim lstRw As Integer
    Dim vertical As String
    Dim i As Integer
    Dim j As Integer
    lstRw = ThisWorkbook.Sheets(1).Range("A" & Rows.Count).End(xlUp).Row
    ListBox1.ColumnCount = 7
    ListBox1.Clear
    For i = 2 To lstRw
        If ComboBox4.Value = ThisWorkbook.Sheets(1).Range("A" & i).Value Then
            Me.ListBox1.AddItem ThisWorkbook.Sheets(1).Range("A" & i).Value
            j = 1
            Me.ListBox1.List(ListBox1.ListCount - 1, j) = ThisWorkbook.Sheets(1).Range("B" & i).Value
            j = j + 1
            Me.ListBox1.List(ListBox1.ListCount - 1, j) = ThisWorkbook.Sheets(1).Range("C" & i).Value
            j = j + 1
            Me.ListBox1.List(ListBox1.ListCount - 1, j) = ThisWorkbook.Sheets(1).Range("D" & i).Value
            j = j + 1
            Me.ListBox1.List(ListBox1.ListCount - 1, j) = ThisWorkbook.Sheets(1).Range("E" & i).Value
            j = j + 1
            Me.ListBox1.List(ListBox1.ListCount - 1, j) = ThisWorkbook.Sheets(1).Range("F" & i).Value
            j = j + 1
            Me.ListBox1.List(ListBox1.ListCount - 1, j) = ThisWorkbook.Sheets(1).Range("G" & i).Value
        End If
    Next i
End Sub