Boa tarde, @dunguinha

O código mais abaixo realizará o que está querendo... você terá que primeiro ir no

Objeto/Procedimento:

Sub PreencherListView()

e comentar ou excluir a linha:

Call PrimeiroItem

depois incluir neste mesmo Objeto/Procedimento a linha:

Call UltimaLinha

Agora o código que terá que copiar e colar dentro do seu UserForm1:

Sub UltimaLinha()

Dim lin As Integer, i As Integer

lin = ListView1.ListItems.Count

For i = 1 To lin
If CDbl(ListView1.ListItems.Item(i)) = CDbl(lin) Then
ListView1.ListItems(i).Selected = True

End If

Next i

End Sub

Verifique, teste e veja se era o que queria 😉 

Aguardando sua resposta e seu Feed Back ... se foi útil, não esqueça de clicar no botão "Curtir" na "mãozinha" 😀

LaerteB 🙂

Era isso mesmo que eu precisava.

Obrigado pela ajuda.