Guru do Excel e Power BI

Boa tarde amigos, sou novo no forum , estou tendo dificuldade com esse codigo no excel
para alterar o cadastro na planilha, so consigo alterar a primeira linda da planilha que e a linha 6 se eu tirar o exit sub consigo cadastrar mas porem tenho que ficar apertando ok ate o loop encontrar a linha que quero alerar ...
Public Sub alterar()
linha = 6
Do Until shtdados.Cells(linha, "A") = ""
If shtdados.Cells(linha, "A") = shtcadastro.Range("cad_0") Then
For a = 1 To 11
shtdados.Cells(linha, "A").Offset(0, a) = shtcadastro.Range("cad_" & a).Value
Next
End If
MsgBox "Dados alterados com Sucesso", vbInformation, "Alterar"
Exit Sub
linha = linha + 1
Loop
End Sub

Só precisava por a msgbox e o exit sub dentro do "IF"... assim: