Guru do Excel e Power BI

":gostaria de saber qual o erro que ocorreu no cadastro,o erro ocorre já na primeira linha erro em tempo de execução "9":
subscrito fora do intervalo.

Boa tarde.
Segue minha cotribuição

Boa tarde!!

Eu sugiro que você substituia seu arquivo por um novo, refazendo seu projeto.
Não vi nada de errado com sua rotina, entre tanto gerava o erro, só resolvi usando outro arquivo.

Att

Bom dia!
Após pesquisar na internet consegui criar a Userform em anexo só estou com um problema.

nas colunas A, B, C, D, E , F tem algumas formulas que ficam ocultas.
ao iniciar o Userform e fazer o cadastro a planilha o Vba reconhece a ultima linha sem nenhum dado para adicionar o cadastro sendo que estou adicionando os dados do cadastro na coluna G o que quero é que o Userform reconheça a ultima linha da coluna G e não da A.

outro problema também é que na coluna I, J, K e O tem formulas e ao registrar a Ocorrência o Vba meio q apaga a formula.
como faço para continua com a formula nessas colunas sem que ao registrar o Vba apague as formulas.

Boa tarde
Para resolver o problema de reconhecimento da coluna G
substitua a parte do código...
ultcelula = .Cells(.Rows.Count, 1).End(xlUp).Row + 1

por esta:
ultcelula = .Cells(.Rows.Count, 7).End(xlUp).Row + 1

No que se refere à apagar fórmula esta parte do código registra informações na coluna "O"

.Cells(ultcelula, 15).Value = frmCadastro.cbomotorista.Value

Sugiro revê-la.
At
gfranco

Bom dia!
gfranco.
segui sua dica de alterar a .Row.Count, para 7 mas ainda assim a planilha está indo para a ultima linha.
ou seja ela ainda está reconhecendo as formulas que estão nas colunas A, B, C, D, E , F e cadastrando os meu dados na ultima linha sem dados.

quanto ao problema nas colunas I, J, K e O que tem formulas o que quero é q ao cadastrar a ocorrência a planilha prencha automatico com os procvs que tem nas colunas e ainda estão apagando as formulas que tem nessas colunas.

Acabei de testar aqui e gravou na linha 33 normal e as fórmulas não foram alteradas

dê uma verificada na ultima linha que tem fórmulas e avalie se não tem nenhum dado digitado que esteja obrigando a macro a identificar essa linha como sendo a última na coluna "G"

gfranco,
muito obrigado realizei um teste com você falou e deu certo.
só mais uma coisa tem como manter as colunas A,B,C,D,E e F ocultas?
pois quando realizo o cadastro elas reaparecem.

Faça assim:
logo abaixo da instrução:
.Columns.EntireColumn.AutoFit

cole essa:
.wrksheet.Columns("a:f").EntireColumn.Hidden = True

obs: antes do end with