Ana Carolina Di Rico

Olá Osvaldo Já havia percebido o erro e corrigi, porém não mudou nada ainda não consegui salvar em outra planilha e fecha-lá instantânea mente. ta difícil viu kkk

Boa Noite a todos, Estou com dificuldades em acertar no código. Tenho duas pastas, uma que será alimentada durante todo o dia (Origem) e outra pasta (DESTINO) que salvará todos os dados da pasta origem e deve permanecer FECHADA. A pasta DESTINO deverá abrir somente para salvar e já fechar assim que for selecionado o botão de SALVAR na planilha ORIGEM. Abaixo segue o código que tentei desenvolver porém ele está salvando na pasta de DESTINO mais não está fechando e retornando para a pasta de ORIGEM que terá os dados apagados para novo preenchimento. Sub salvar_registro() ' ' Macro1 Macro ' Dim wsORIGEM As Worksheet Dim wsDESTINO As Worksheet Workbooks.Open Filename:="\\Mfgsvr\svn\CONTENÇÃO\BASE\BASE CONTENÇÃO.xlsx" Set wsORIGEM = Workbooks("Controle diário contenção.xlsm").Worksheets("REGISTRO NOVO") Set wsDESTINO = Workbooks("BASE CONTENÇÃO.XLSX").Worksheets("BASE") With wsORIGEM wsORIGEM.Range("A2:K37").Copy wsDESTINO.Range("A99999").End(xlUp).Offset(1, 0).Select Application.CutCopyMode = False End With Workbooks("BASE CONTENÇÃO.wlsx").Close SaveChanges:=True wsORIGEM.Range("A2:K37").ClearContents wsORIGEM.Range("A2").Select MsgBox "REGISTRO DE CONTENÇÃO SALVO COM SUCESSO" End Sub Quando clico em executar a linha em negrito fica amarela e aparece a mensagem dizendo: SUBSCRITO FORA DO INTERVALO. Preciso que os dados da ORIGEM salvem na pasta DESTINO que deve ser salva e fechada para que o MSGBOX aparaça na pasta ORIGEM já com as células vazias para novo preenchimento. Por favor se alguem puder me ajudar, por que minha cabeça já não esta pensando em mais nada. Eu agradeço muito!!!!