Boa tarde!!
Tente

Sub Tente()
Dim shtList As Worksheet
Dim cell, rng As Range
Dim nRow As Integer

Set shtList = ThisWorkbook.Worksheets(Sheets.Count)
nRow = shtList.Cells(1, 1).End(xlDown).Row

With ListForm.ListBox
    .Clear
    .ColumnCount = 2
    .List = Range(Cells(1, 1), Cells(nRow, 2)).Value
End With

ListForm.Show

End Sub

Use a pesquisa do fórum.
search.php?keywords=Como+carregar+uma+lista+em+uma+listbox+de+um+form&terms=all&author=&sv=0&sc=1&sf=all&sr=posts&sk=t&sd=d&st=0&ch=300&t=0&submit=Pesquisar

Talvez outra forma

Private Sub UserForm_Initialize()
Plan1.Range("A1", Plan1.Range("A65536").End(xlUp)).Name = "AleVBA"
ListBox1.RowSource = "AleVBA"
End Sub

Att

Perfeito Alexandre!
Muito Obrigado amigo pela força de sempre!