llenar listview por codigo

[frankjoel86]

saludos gentita, como hago para llenar un listview por codigo.
hasta donde eh podido avanzar es llenar solo la primera columna, adjunto el code:

Sub llenargridnombre()
Dim ITMX As ListItem
Dim x As Integer
NumRegNombre
Range("B3").Select
For x = 0 To Range("Hoja1!B3:$B$" & Con + 1).Count
Posicion = ActiveCell.Address
ActiveCell.Offset(0, 1).Select
'agregar item
Set ITMX = ListView1.ListItems.Add(, , ActiveCell.Value)
Range(Posicion).Select
ActiveCell.Offset(1, 0).Select
Next
End Sub


Sub llenargriddescripcion()
Dim ITMX As ListItem
Dim x As Integer
NumRegDescripcion
Range("C3").Select
For x = 0 To Range("Hoja1!C3:$C$" & Con + 1).Count
Posicion = ActiveCell.Address
ActiveCell.Offset(0, 1).Select
'agregar item
ITMX.SubItems(1) = ActiveCell.Value
'Set ITMX = ListView1.ListItems.Add(, , ActiveCell.Value)
Range(Posicion).Select
ActiveCell.Offset(1, 0).Select
Next
End Sub

Cualquier apoyo es bienvenido