Experimente:

Private Sub Atualizar()
Dim item As ListItem
Dim linhafinal As Integer
Dim i As Integer

ListView1.ListItems.Clear

linhafinal = Plan1.Cells(Cells.Rows.Count, "A").End(xlUp).Row

MsgBox linhafinal
For i = 2 To linhafinal
ListView1.ListItems.Add i - 1, , Sheets("Plan1").Range("A" & i).Value
ListView1.ListItems(i - 1).ListSubItems.Add 1, , Sheets("Plan1").Range("B" & i).Value
ListView1.ListItems(i - 1).ListSubItems.Add 2, , Sheets("Plan1").Range("C" & i).Value
ListView1.ListItems(i - 1).ListSubItems.Add 3, , Format(Sheets("Plan1").Range("d" & i).Value, "#,#.00")
ListView1.ListItems(i - 1).ListSubItems.Add 4, , Sheets("Plan1").Range("e" & i).Value

Next
End Sub