Paulo Daniel Gomes

Bom dia Meus Caros, Estou desenvolvendo um cadastro de cliente para empresa que trabalho. estou com uma dificuldade na alteração de dados ja cadastrados,(não consigo alterar os dados cadastrados sem duplicar-lo) Alguem pode me ajudar. Segue abaixo a macro que estou utilizando. Private Sub cmdGravar_Click() 'Ativar a primeira planilha ThisWorkbook.Worksheets("Dados Clientes").Activate 'Selecionar a célula A3 Range("A3").Select 'Procurar a primeira célula vazia Do If Not (IsEmpty(ActiveCell)) Then ActiveCell.Offset(1, 0).Select End If Loop Until IsEmpty(ActiveCell) = True 'Carregar os dados digitados nas caixas de texto para a planilha ActiveCell.Value = txtrazãosocial.Value ActiveCell.Offset(0, 2).Value = txtinscrição.Value ActiveCell.Offset(0, 1).Value = txtcnpj.Value ActiveCell.Offset(0, 3).Value = txtendereço.Value ActiveCell.Offset(0, 4).Value = cboESTADO.Value ActiveCell.Offset(0, 5).Value = txtbairro.Value ActiveCell.Offset(0, 6).Value = cboCIDADE.Value ActiveCell.Offset(0, 7).Value = txtcep.Value ActiveCell.Offset(0, 8).Value = txttelefone.Value ActiveCell.Offset(0, 9).Value = txtemail.Value ActiveCell.Offset(0, 11).Value = txtobservações.Value ActiveCell.Offset(0, 12).Value = txtprestador1.Value ActiveCell.Offset(0, 13).Value = txtcontato1.Value ActiveCell.Offset(0, 14).Value = txttelefonecontato1.Value ActiveCell.Offset(0, 15).Value = txtemailcontato1.Value ActiveCell.Offset(0, 16).Value = txtprestador2.Value ActiveCell.Offset(0, 17).Value = txtcontato2.Value ActiveCell.Offset(0, 18).Value = txttelefonecontato2.Value ActiveCell.Offset(0, 19).Value = txtemailcontato2.Value 'Carregar o Tipo do cliente dos botões de opção If OptionButton1.Value = True Then ActiveCell.Offset(0, 10).Value = "Pessoal Fisica" Else ActiveCell.Offset(0, 10).Value = "Pessoa Juridica" End If 'Limpar as caixas de texto txtcnpj.Value = Empty txtinscrição.Value = Empty txtrazãosocial.Value = Empty txtendereço.Value = Empty txtbairro.Value = Empty txtemail.Value = Empty txtcep.Value = Empty txttelefone.Value = Empty txtemail.Value = Empty txtprestador1.Value = Empty txtcontato1.Value = Empty txttelefonecontato1.Value = Empty txtemailcontato1.Value = Empty txtprestador2.Value = Empty txtcontato2.Value = Empty txttelefonecontato2.Value = Empty txtemailcontato2.Value = Empty txtobservações.Value = Empty 'Limpar as caixas de combinação cboESTADO.Value = Empty cboCIDADE.Value = Empty 'Limpar os botões OptionButton OptionButton1.Value = False OptionButton2.Value = False 'Colocar o foco na primeira caixa de texto txtrazãosocial.SetFocus End Sub