Populate multicolumn listbox

Hi

i use this code to populate a list box from worksheet "Data"

The problem i have is that i want to populate both column A and B to the listbox and
with this code i only get it to populate from column A, can anyone help me with what
i have to add to make it populate both columns in the the listbox ?

Dim rngName As Range
    Dim ws As Worksheet
    Dim i As Integer

    Set ws = Worksheets("Data")
    For i = 1 To ws.Cells(ws.Rows.Count, 1).End(xlUp).Row Step 1
        If ws.Cells(i, 1).Value <> vbNullString Then Me.ListBox1.AddItem ws.Cells(i, 1)
        
    Next i

Right now i using this code and i works, exept it populates the active sheet i have open in excel i want to have another sheet open when i open the userform.

With Sheets("Data")
ListBox1.ColumnCount = 2
ListBox1.ColumnWidths = "30;10"
ListBox1.List = Range("A1:B" & Range("A" & Rows.Count).End(xlUp).Row).Value
    
End With

Petter