Pessoal tenho uma planilha chamada banco de dados e ao inserir um CNPJ num determinado formulário e clicar no botão pesquisar, ele busca os dados existentes na planilha e preenche o formulário.
O problema é que se eu altero algum dado neste formulário e peço para Salvar, ele salva na linha 1 ao invés de salvar na linha correspondente a pesquisa realizada.

Alguém poderia me ajudar a concertar o código abaixo, por favor?
Falta um comando que diga pra ele procurar a informação e onde ele encontrar ao clicar no botão salvar ele faça as devidas alterações.

Private Sub Button_SalvarMapeamento_Click()

'Ativar a primeira planilha
ThisWorkbook.Worksheets("Banco de Dados").Activate
Range("A3").Select

'Carregar os dados digitados nas caixas de texto para a planilha
ActiveCell.Offset(0, 2).Value = txt_cnpj.Value
ActiveCell.Offset(0, 9).Value = txt_tel1.Value
ActiveCell.Offset(0, 10).Value = txt_nome1.Value
ActiveCell.Offset(0, 11).Value = txt_cargo1.Value
ActiveCell.Offset(0, 12).Value = txt_email1.Value
ActiveCell.Offset(0, 13).Value = txt_tel2.Value
ActiveCell.Offset(0, 14).Value = txt_nome2.Value
ActiveCell.Offset(0, 15).Value = txt_cargo2.Value
ActiveCell.Offset(0, 16).Value = txt_email2.Value
ActiveCell.Offset(0, 17).Value = txt_tel3.Value
ActiveCell.Offset(0, 18).Value = txt_nome3.Value
ActiveCell.Offset(0, 19).Value = txt_cargo3.Value
ActiveCell.Offset(0, 20).Value = txt_email3.Value
ActiveCell.Offset(0, 21).Value = txt_solucao.Value
ActiveCell.Offset(0, 22).Value = txt_informatizado.Value
ActiveCell.Offset(0, 23).Value = txt_funcionarios.Value
ActiveCell.Offset(0, 24).Value = Combo_faturamento.Value
ActiveCell.Offset(0, 25).Value = txt_ged.Value
ActiveCell.Offset(0, 26).Value = txt_1contato.Value
ActiveCell.Offset(0, 27).Value = txt_ultimocontato.Value
ActiveCell.Offset(0, 28).Value = txt_quantcontatos.Value
ActiveCell.Offset(0, 29).Value = txt_proximocontato.Value
ActiveCell.Offset(0, 30).Value = txt_acoes.Value
ActiveCell.Offset(0, 31).Value = txt_obs.Value
ActiveCell.Offset(0, 32).Value = Combo_status.Value
ActiveCell.Offset(0, 33).Value = Combo_esn.Value

'Limpar as caixas de texto
txt_cnpj.Value = Empty
txt_tel1.Value = Empty
txt_nome1.Value = Empty
txt_cargo1.Value = Empty
txt_email1.Value = Empty
txt_tel2.Value = Empty
txt_nome2.Value = Empty
txt_cargo2.Value = Empty
txt_email2.Value = Empty
txt_tel3.Value = Empty
txt_nome3.Value = Empty
txt_cargo3.Value = Empty
txt_email3.Value = Empty
txt_solucao.Value = Empty
txt_informatizado.Value = Empty
txt_funcionarios.Value = Empty
Combo_faturamento.Value = Empty
txt_ged.Value = Empty
txt_1contato.Value = Empty
txt_ultimocontato.Value = Empty
txt_quantcontatos.Value = Empty
txt_proximocontato.Value = Empty
txt_acoes.Value = Empty
txt_obs.Value = Empty
Combo_status.Value = Empty
Combo_esn.Value = Empty

'Colocar o foco na primeira caixa de texto
txt_cnpj.SetFocus

End Sub