selecionar itens pelo listbox e fazer alteração nos dados

[lezão 0]

Ola galera, boa noite!

 

sou novo nesse ramo de vba, estou tentando realizar meu primeiro trabalho....

gostaria de fazer se possivel, qnd eu seleciono um item no listbox ele recupera os dados para os campos de origem, até ai td bem consegui fazer isso puxar.

 

O problema é o seguinte, qnd puxo o dado para os campos eu queria ja alterar esse dados, sem ter q chamar outra userform, pq qnd eu cadastro os itens alguns campos naun saun preenchido

 

veja como esta minha função cadastro

Private Sub botao_confirmar_Click()
Totalregistro = Worksheets("Banco_de_Dados").UsedRange.Rows.Count + 1
Worksheets("Banco_de_Dados").Select

'Aqui começa a gravar os dados
Cells(Totalregistro, 1) = Caixa_placa
Cells(Totalregistro, 2) = Caixa_data
Cells(Totalregistro, 3) = Caixa_operação
Cells(Totalregistro, 4) = CAIXA_STATUS

MsgBox "Dados gravados com sucesso!"

Caixa_placa = ""
Caixa_data = ""
Caixa_operação = ""
CAIXA_STATUS = ""

'Coloca o focu na caixa Placa
Caixa_placa.SetFocus

'Atualizar a caixa salvar
UserForm_Initialize

'Comando para Salvar a Planilha
ActiveWorkbook.Save

'Codigo para preencher caixa localizar
Totaldelinhas = Worksheets("Banco_de_Dados").UsedRange.Rows.Count
caixa_localizar.RowSource = "Banco_de_Dados!A1:E" & Totaldelinhas

e minha funcção listbox

Private Sub caixa_localizar_Click()
Totalregistro = Worksheets("Banco_de_Dados").UsedRange.Rows.Count

For i = 0 To Totalregistro

If caixa_localizar.ListIndex = i Then

nome_encontrado = i

'Preencher as caixas
Caixa_placa = Cells(i + 1, 1)
Caixa_data = Cells(i + 1, 2)
Caixa_operação = Cells(i + 1, 3)
CAIXA_STATUS = Cells(i + 1, 4)

Exit Sub

End If
Next

alguem poderi me ajudar?????????