Erro no formulário de cadastro

[Dboabaid]

Pessoal, não consigo corrigir os erros na planilha de cadastro.
1) Ao abrir o arquivo, o formulário inicia, mas não está gerando o código automaticamente no textbox. Não precisa ser exatamente sequencial, pode ser aleatório. Aliás prefiro que gere números aleatórios.
2) Ao inserir os dados e clicar em salvar, aparece a seguinte mensagem de erro: O método 'Range' do objeto'_Worksheet' falhou

Alguém pode me ajudar?
Segue arquivo em anexo.

Desde já agradeço.

Daniel

[Dboabaid]

Desculpe a insistência, mas alguem sabe como proceder?