Boa noite!!!

Substitua seu código do botão cadastrar por este...

Private Sub cmdCadastrar_Click()


    totalregistro = Worksheets("Plan1").UsedRange.Rows.Count + 1
      With Worksheets("Plan1")
 
    .Cells(totalregistro, 1) = TextBox1
    .Cells(totalregistro, 2) = TextBox2
    .Cells(totalregistro, 3) = TextBox3
    .Cells(totalregistro, 4) = TextBox4
    .Cells(totalregistro, 5) = TextBox5
    .Cells(totalregistro, 6) = TextBox6
   
    End With
    MsgBox "Gravado com Sucesso"
  
End Sub

Rapido e objetivo, hahahahahah, grande Alexandre, agora estou partindo para tentar montar o codigo de pesquisa, seguramente vou precisar da ajuda de vcs.
Estarei abrindo um novo topico.

Muito obrigado Alexandre.

Alexandre,

E muito trabalhoso aprimorar este autopreenchimento como fazemos na barrinha de e-mails, que quando eu começo a escrever ele abre embaixo as opçoes com aquelas letras que seguem?

Boa noite!!

Que dizer um autocompletar?

veja..

http://www.macoratti.net/vbn_cbac.htm