Galera boa tarde!

ver se podem me ajudar nessa macro,

Sub cadastrar_dados()

resposta = MsgBox("Deseja Inserir os dados da Fazenda? [" & Plan16.[E9].Value & " ]", vbYesNo, "CMAA - Unidade Vale do Tijuco")

If resposta = vbYes Then

Plan17.Range("b65000").End(xlUp).Offset(1, 0).Value = Plan16.[E9].Value
Plan17.Range("b65000").End(xlUp).Offset(0, 1).Value = Plan16.[F9].Value
Plan17.Range("b65000").End(xlUp).Offset(0, 3).Value = Plan16.[K41].Value
Plan17.Range("b65000").End(xlUp).Offset(0, 4).Value = Plan16.[C37].Value
Plan17.Range("b65000").End(xlUp).Offset(0, 5).Value = Plan16.[K42].Value
Plan17.Range("b65000").End(xlUp).Offset(0, 6).Value = Plan16.[P39].Value
Plan17.Range("b65000").End(xlUp).Offset(0, 7).Value = Plan16.[P44].Value
Plan17.Range("b65000").End(xlUp).Offset(0, 8).Value = Plan16.[P41].Value

MsgBox ("Dados Cadastrados com Sucesso!"), vbInformation, "Robson, CMAA - Unidade Vale do Tijuco"

Else

MsgBox "Você acaba de recusar a ação"
End If

Plan16.Select ' PLANILHA RECOMENDACAO

End Sub

Nessa imagem quando eu clico no botão verde ele leva pra outra aba, o codigo da fazenda + nome, mais os dados conforme imagem 2

quero que quando eu clicar no botão verde, após aceitar enviar os dados, ele faça uma varredura pra procurar se o codigo da fazenda não já foi inserido, se SIM, informar que os dados que estão tentando inserir na outra aba já foram lançados, e não aceitar novamente, caso não esteja lançado os dados, favor lançar como já ta feita a programação e organizar pelo codigo da fazenda.

grato,

qualquer dúvida estou a disposição