Restrição Para Cadastrar VBA

[Ferrassi]

Boa tarde,

 

Peço a ajuda para tentar desenvolver um código para a restrição de cadastro de clientes.

Estou encontrando dificuldades, pois sou inexperiente.

  'Sem restrição Cadastrar
Do Until shtBDGes.Cells(linha, "C") = ""
If shtBDGes.Cells(linha, "C") = shtCadastro.Range("CGes2") Then

Exit Sub
End If
linha = linha + 1
Loop

Do Until shtBDGes.Cells(linha, "C") = ""
If shtBDGes.Cells(linha, "C") = shtCadastro.Range("CGes2") Then
MsgBox "CNS já cadastrado", vbInformation, "Cadastro Negado"
Exit Sub
End If
linha = linha + 1
Loop

Do Until shtBDGes.Cells(linha, "A") = ""
linha = linha + 1
Loop
For a = 0 To 27
shtBDGes.Cells(linha, "A").Offset(0, a) = shtCadastro.Range("CGes" & a).Value
Next
MsgBox "Dados Cadastrados com Sucesso", vbInformation, "Cadastro de Clientes"

End Sub
 

Este código só está verificando a primeira coluna, que é o código, quando ele é alterado cadastra o mesmo dados posteriores.

Gostaria também criar abas com informações diferentes.

Sem mais, agradeço