ListView1.ListItems.Clear
ulti = Cells(Rows.Count, "a").End(xlUp).Row
For x = 3 To ulti
Set lista = ListView1.ListItems.Add(, , Cells(x, "a").Text)
lista.ListSubItems.Add , , Cells(x, "b").Text
lista.ListSubItems.Add , , Cells(x, "c").Text
lista.ListSubItems.Add , , Chr(10) & Cells(x, "d").Text
Next x