Cargar registros de una hoja en ListView Excel VBA

Ejemplo en Excel VBA donde se cargara una lista de paises a un listview. Esto se realizara al cargar el formulario.

Para eso ncesitamos los siguientes controles.

- Userform
- Listview
- Button
Para insertar el listview  damos clic derechoa nuestra caja de herramientras y nos saldra Controles adicionales..., presionamos en esa opcion y nos aparecera un cuadro como este.

En esta ventana seleccionamos la opción que dice: " Microsoft Listview Control 6.0 (SP6)
Y nos cargara la herramienta listview con la que trabajaremos

Nos vamos a codigo e insertamos el siguiene codigo

Private Sub UserForm_Initialize()
Me.ListView1.Width = 295
With ListView1
    .Gridlines = True ' Activa las lineas por cada fila
    .View = lvwReport 'En modo reporte
    .FullRowSelect = True ' permite seleccionar una fila completa
   
    .ColumnHeaders.Add Text:="CODIGO", Width:=40
    .ColumnHeaders.Add Text:="PAIS", Width:=240
End With
Call Actualizar
End Sub

Sub Actualizar()
Dim i As Integer
Dim UFila As Integer
Dim item As ListItem
With Sheets("Paises")
    UFila = .Range("A2", .Range("A2").End(xlDown)).Count

For i = 2 To UFila
    Set item = ListView1.ListItems.Add(Text:=.Cells(i, 1))
    item.SubItems(1) = .Cells(i, 2)
Next i
End With
End Sub

Private Sub CommandButton1_Click()
End
End Sub

Pueden encontrar el ejemplo  en la siguiente ruta:
Cargar registros a un listview con excel vba