Tente assim Coloca isso em um modulo (Alt+F11, inserir modulo) e associe a um botao sub novo() range("A1").value = range("A1")....

Nao sei se ajuda muito mas vc esta ocultando o excel qdo executa o arquivo. Apaga essa linha e ve se o erro persiste. Application.Visible = False

Disponibilize os arquivos que vc precisa criar

Se vc quer sem senha faz assim. Private Sub Workbook_Open() If Date > CDate("30/10/2200") Then MsgBox ("Atenção: Sua Mensagem Aqui...

Nao entendi muito bem porem seria mais simples vc disponibilizar seu arquivo. como modelo Uma ideia seria vc proteger a planilha dados qdo colocar x ...

Nem olhei as rotinas, mas para altera os registros vc precisa carrega-los no formulario e depois localizar novamente o registro para gravar. O ideal ...

Acho que nao

As linhas em vermelho representam que linhas na pivot? Nao identifiquei.

Cara o que esta havendo de errado com a planilha??? Pq abri ela aqui e nao tive nenhum problema em atualiza-la. Dessa forma nao demorou 1 min para a...

Cara faça uma copia reduzida do arquivo, poste o arquivo nao os dados, os dados devem ser outros que nao os reais. O que interessa é o layout e o pro...

Disponibilize os dois arquivos modelos de como esta e como deve ficar no final. Tem que ser em word???????? Nao serve PDF???

Realmente nao entendi.

Cara eu olhei para planilha e nao consegui identificar diretio onde vc diz que esta errado, ja que nao consegui identificar as mesmas informações na p...

Uma segunda sugestão seria trocar Set wb = Workbooks(1) por Set wb = Workbooks("Modelo Grade")

Vc precisa fazer isso muitas vezes ao dia?????????? Classificar manualmente é tao trabalhoso assim? Mas se vc quiser mesmo fazer algo assim o gravad...