Desculpe, mas era para ter postado compactado

Boa noite!!

você terá que alterar sua função...

..Terá que adapta-la

Function UltimaLinha() As Long
    'Declaração de Variáveis
    Dim Aux As String 'Variável Auxiliar
    Dim ContLinha As Long 'Contador de linhas da planilha 2
        
    'Atribui 1 para a variável ContLinha identificando que
    'a primeira linha a ser pesquisada é a primeira
    ContLinha = 2

Não sei se a maneira mais viável

Alexandre,

Fiz a alteração ContLinha = 2... alterou para a 2ª linha como eu queria, mas na hora que limpo as células e incluo nas respectivas planilhas (Codigo, Nome... conforme o formulario na 1ª linha, da erro, tentei alterar outros campos do código no formulário, mas não obtive sucesso.

Att,

Bom dia!!

Tente entender e olhar bem suas rotinas desenvolvidas.

exemplo:
Agora altere...e assim por diante

Function ProcuraCodigo(Codigo As Integer) As Long
    'Declaração de Variáveis
    Dim Aux As String 'Variável Auxiliar
    Dim ContLinha As Long 'Contador de linhas da planilha 2
        
    'Atribui 1 para a variável ContLinha identificando que
    'a primeira linha a ser pesquisada é a primeira
    ContLinha = 2
    
    'A variável Aux vai receber o conteúdo da primeira linha
    'e primeira coluna da planilha 2. Se não encontrar o código
    'retorna a linha 0
    Aux = Sheets("Plan2").Cells(ContLinha, 1)
    If (Aux = "") Then
        Aux = 0
        ContLinha = 0

Alexandre,

Sempre me retorna com erro, sempre nesta linha no botão incluir: Codigo = CInt(Sheets("Plan2").Cells(UltimaLinha, 1)) + 1

Não sou expert no assunto, nas alterações que fiz funciona somente se já tiver algo cadastrado, mas se a plan2 tiver sem cadastro da erro.

Att,

Segue uma rotina para verificar qual a Ultima Linha Preenchida ignorando a "Linha 1", se pesquisar no Forum por UltimaLinha ou termo semelhante encontrara varias outras :

Sub ULTIMALINHA()

    Dim ULTIMALINHA As Long
    
    'Verifica a Ultima Linha Preenchida na Coluna A e somamos mais 1(a linha vazia)
    ULTIMALINHA = Plan2.Range("A65536").End(xlUp).Row + 1
    
    'Transferimos o dado para a coluna A?? Ultima Linha
    Plan2.Range("A" & ULTIMALINHA).Value = "V"

End Sub

[]s

Galera,

Apesar de gostar de VBA e coisa e tal, não tenho conhecimento para desenvolver o que eu gostaria, me familiarizo com este formulário que postarei em anexo, algumas coisas simples até sei fazer, e com base neste formulário, tenho um projeto bacana, mas a minha dificuldade e fazer com que o formulário cadastre a partir na 2ª linha, alguém por gentileza poderia adaptar e me retornar, serei muito grato se possível.

Abs, e até mais!!!

Só resaltando, o cadastro principal que cadastra nas outras plans é o frmcadastro, os demais são apenas para alteraçao.
Att,

Veja se ajuda