crie uma macro no excel para cadastrar cliente, endereço, telefone, cnpj, contato. cada novo cadastro deve ter uma numeração sequencial iniciando em 00001

Para criar uma macro no Excel que cadastre clientes com os campos solicitados (nome, endereço, telefone, CNPJ, contato) e uma numeração sequencial que comece com "00001", siga os passos abaixo:

### Passo 1: Preparar a Planilha

1. Abra o Excel e crie uma nova planilha.
2. Na primeira linha, crie os cabeçalhos na seguinte ordem:
   - A1: `ID`
   - B1: `Nome`
   - C1: `Endereço`
   - D1: `Telefone`
   - E1: `CNPJ`
   - F1: `Contato`

### Passo 2: Abrir o Editor de VBA

1. Pressione `ALT` + `F11` para abrir o Editor do VBA.
2. No menu superior, clique em `Inserir` e depois em `Módulo` para criar um novo módulo.

### Passo 3: Escrever a Macro

No módulo criado, copie e cole o código abaixo:

```vba
Sub CadastrarCliente()
    Dim ws As Worksheet
    Dim ultimaLinha As Long
    Dim novoID As Long
    Dim nome As String
    Dim endereco As String
    Dim telefone As String
    Dim cnpj As String
    Dim contato As String
    
    ' Defina a planilha atual
    Set ws = ThisWorkbook.Sheets(1) ' Altere o número da planilha se necessário

    ' Determine a última linha usada
    ultimaLinha = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' Adiciona 1 ao último ID registrado para criar um novo ID
    If ultimaLinha = 1 Then
        novoID = 1
    Else
        novoID = ws.Cells(ultimaLinha, 1).Value + 1
    End If

    ' Solicita informações ao usuário
    nome = InputBox("Digite o nome do cliente:")
    endereco = InputBox("Digite o endereço do cliente:")
    telefone = InputBox("Digite o telefone do cliente:")
    cnpj = InputBox("Digite o CNPJ do cliente:")
    contato = InputBox("Digite o nome do contato do cliente:")
    
    ' Adiciona os dados na próxima linha disponível
    ws.Cells(ultimaLinha + 1, 1).Value = Format(novoID, "00000")
    ws.Cells(ultimaLinha + 1, 2).Value = nome
    ws.Cells(ultimaLinha + 1, 3).Value = endereco
    ws.Cells(ultimaLinha + 1, 4).Value = telefone
    ws.Cells(ultimaLinha + 1, 5).Value = cnpj
    ws.Cells(ultimaLinha + 1, 6).Value = contato
    
    MsgBox "Cliente cadastrado com sucesso!"
End Sub
```

### Passo 4: Executar a Macro

1. Feche o Editor de VBA e volte para o Excel.
2. Para executar a macro, pressione `ALT` + `F8`, selecione `CadastrarCliente` e clique em `Executar`.
3. Siga as instruções que aparecem nas caixas de entrada para preencher os dados do cliente.

### Observações

- Cada vez que você executar a macro, ela irá adicionar um novo cliente na próxima linha disponível, atribuindo um ID sequencial formatado como "00001", "00002", etc.
- Você pode personalizar a macro conforme necessário. Por exemplo, você pode adicionar validações para os dados inseridos.