Nao identifiquei qual a sua chave primaria para que na hora de gravar a alteração seja localizado o registro correto.

Pode ser o CPF, RG ou outra parte do registro (desde que seja exclusivo e nao se repita), mas eu gosto de usar um numero interno que nao dependa do usuario para ser criado.

Assim vc pode criar uma busca atraves de formulas internas do VBA ou ainda atraves de um loop que ao encontrar o codigo substitua os dados da linha.

Nao identifiquei qual a sua chave primaria para que na hora de gravar a alteração seja localizado o registro correto.

Olá MPrudencio, gostaria de utilizar o cognome como chave primária, já que, a princípio, ela será única.
Pode me ajudar, por favor?

Olá acrescente este código talvez ajude.

Dim id As String

id = Textbox1 ' Sua chave primaria cognome "
linha = 2

'Aqui você realiza a pesquisa de qual cadastro quer alterar

Sheets("cadastro").Select

Do Until Sheets("cadastro").Cells(linha, 1) = "" 'vai executar o laço até encontrar uma célula vazia
'condicção para localizar o registro
If Sheets("cadastro").Cells(linha, 1) = id Then 'se encontrar o valor registro na célula pesquisada
Sheets("cadastro").Cells(linha, 1).Select 'será selecionada a célula

' Após localizar o registro coloque o código que faz a alteração

Sheets("cadastro").Cells(linha, 2) = opt_cliente
Sheets("cadastro").Cells(linha, 3) = opt_fornecedor

Fiz o código

Private Sub ALTERAR_Click()
Call ModCódigos.Liberar
TextBox1.SetFocus
Plan2.Activate

Sheets("cadastro").Cells(Linha, 2) = opt_cliente
Sheets("cadastro").Cells(Linha, 3) = opt_fornecedor
With ActiveCell
ActiveCell.Value = Me.ComboBox1.Text
.Offset(0, 1).Value = Me.TextBox1.Text
.Offset(0, 2).Value = Me.TextBox2.Text
.Offset(0, 3).Value = "=IFERROR(IF(ISBLANK(RC[-3]),"""",(TODAY()-RC[-1])/365),0)"
.Offset(0, 4).Value = Me.TextBox4.Text
.Offset(0, 5).Value = Me.TextBox5.Text
.Offset(0, 6).Value = Me.TextBox6.Text
.Offset(0, 7).Value = Me.TextBox7.Text
.Offset(0, 8).Value = Me.TextBox8.Text
.Offset(0, 9).Value = Me.TextBox9.Text
.Offset(0, 10).Value = Me.TextBox10.Text
.Offset(0, 11).Value = Me.TextBox11.Text
.Offset(0, 12).Value = Me.TextBox12.Text
.Offset(0, 13).Value = Me.TextBox13.Text
.Offset(0, 14).Value = "=IFERROR(IF(ISBLANK(RC[-13]),"""",(TODAY()-RC[-1])/365),0)"
.Offset(0, 15).Value = Me.TextBox15.Text
.Offset(0, 16).Value = Me.TextBox16.Text
.Offset(0, 17).Value = Me.TextBox17.Text
.Offset(0, 18).Value = Me.TextBox18.Text
.Offset(0, 19).Value = Me.TextBox19.Text
.Offset(0, 20).Value = Me.TextBox20.Text
.Offset(0, 21).Value = Me.TextBox21.Text
.Offset(0, 22).Value = Me.TextBox22.Text
.Offset(0, 23).Value = Me.TextBox23.Text
.Offset(0, 24).Value = Me.TextBox24.Text
.Offset(0, 25).Value = Me.TextBox25.Text
.Offset(0, 26).Value = Me.TextBox26.Text
.Offset(0, 27).Value = Me.TextBox27.Text
.Offset(0, 28).Value = Me.TextBox28.Text
.Offset(0, 29).Value = Me.TextBox29.Text
.Offset(0, 30).Value = "=IFERROR(IFS(ISBLANK(RC[1]),0,RC[9]<>"""",""Past Master"",RC[6]<>"""",""Mestre Maçom"",RC[4]<>"""",""Companheiro Maçom"",RC[1]<>"""",""Aprendiz Maçom""),0)"
.Offset(0, 31).Value = Me.TextBox31.Text
.Offset(0, 32).Value = "=IFERROR(IF(ISBLANK(RC[-31]),"""",(TODAY()-RC[-1])/365),0)"
.Offset(0, 33).Value = Me.TextBox33.Text
.Offset(0, 34).Value = Me.TextBox34.Text
.Offset(0, 35).Value = Me.TextBox35.Text
.Offset(0, 36).Value = Me.TextBox36.Text
.Offset(0, 37).Value = "=IFERROR(IF(ISBLANK(RC[-36]),"""",(TODAY()-RC[-1])/365),0)"
.Offset(0, 38).Value = Me.TextBox38.Text
.Offset(0, 39).Value = Me.TextBox39.Text
.Offset(0, 40).Value = Me.TextBox40.Text
.Offset(0, 41).Value = "=IFERROR(IF(ISBLANK(RC[-41]),"""",(TODAY()-RC[-1])/365),0)"
.Offset(0, 42).Value = Me.TextBox42.Text
.Offset(0, 43).Value = Me.TextBox43.Text
.Offset(0, 44).Value = Me.TextBox44.Text
.Offset(0, 45).Value = "=IFERROR(IF(ISBLANK(RC[-44]),"""",(TODAY()-RC[-1])/365),0)"
.Offset(0, 46).Value = Me.TextBox46.Text
.Offset(0, 47).Value = Me.TextBox47.Text
.Offset(0, 48).Value = Me.TextBox48.Text
.Offset(0, 49).Value = Me.TextBox49.Text

.Offset(0, 50).Value = Foto
End With
Columns.AutoFit

MsgBox "As informações do Irmão " & ComboBox1 & ", foram atualizadas com sucesso!!!", vbInformation

LimparFormulário
End Sub

que até funciona, porém não consigo criar um laço para procurar o cadastro a ser atualizado e ele sempre atualiza o cadastro 1.
Se alguém puder dar uma olhada

Ei coloquei um botão alterar com o código para você ver como fica.

Ei coloquei um botão alterar com o código para você ver como fica.

Muito obrigado Jozelia. Era isso mesmo que eu precisava.
Abraços a todos que tentaram me dar um help.