Populate Userform from Listbox Record

Hi. Try:

Private Sub UserForm_Initialize()

    With ThisWorkbook.Sheets("Sheet4")

        ' Fill ListBox
        Me.listBox1.List = .Range("A2:L" & .Cells(.Rows.Count, 1).End(xlUp).Row).Value
    End With

End Sub