Não vi seu modelo, mas de uma lida no tópico http://www.planilhando.com.br/forum/viewtopic.php?f=10&t=23740&hilit=+usedrange que talvez o auxilie

Eu li, mas não deu certo não. mudei a linha para

 indice = WorksheetFunction.VLookup(Val(TxtAlteraLogin.Value), .Range("A2:A65536"), 2, 0)

nao funcionou não. Ou eu não soube fazer a referência certa né.

Aparentemente leu mas não entendeu.
No tópico há duas situações uma referente ao usedRange.
assim para definir coerentemente o indice utilize:
De:
[url]indice = wsCadastro.UsedRange.Rows.Count[/url]
para:
[url]indice = wsCadastro.Cells(Cells.Rows.Count, "A").End(xlUp).Row+1[/url]

A forma que utilizou, e para a procura de um determinado valor em uma range.
Obs.: Estou sem possibilidade de download do arquivo

Aparentemente leu mas não entendeu.
No tópico há duas situações uma referente ao usedRange.
assim para definir coerentemente o indice utilize:
De:
[url]indice = wsCadastro.UsedRange.Rows.Count[/url]
para:
[url]indice = wsCadastro.Cells(Cells.Rows.Count, "A").End(xlUp).Row+1[/url]

A forma que utilizou, e para a procura de um determinado valor em uma range.
Obs.: Estou sem possibilidade de download do arquivo

Utilizei essas 2 opções, e na hora de alterar na primeira opção, altera somente o ultimo cadastro e não o cadastro referente a pesquisa.
Na segunda opção ele grava o valor na linha abaixo de todos os cadastros.