Mariliasp

ué, abri os arquivos que enviei para testar e não estão com senha

Boa noite! Sou nova no grupo e gostaria de uma ajuda. Tenho um planilha que funciona como um FORMULÁRIO de cadastro de alunos de uma academia. Quando o aluno agenda sua avaliação física, os dados de cadastro são preenchidos durante a avaliação e preciso que esses mesmos dados sejam salvos, AO APERTAR O BOTAO SALVAR, em outras duas planilhas que ficam em outras pastas de trabalho, mesmo quando essas estão fechadas, para evitar que tenham que ser digitados novamente. Uma delas é a de PAGAMENTOS, nela eu preciso que seja salvo somente o nome do cliente na primeira coluna, e a outra é a de CADASTROS onde preciso que sejam salvos todos os campos do formulário, dispostos em colunas que já estão nomeadas. Já tentei gravar a macro manualmente mas depois que fecho os arquivos, ao abrir novamente dá erro em tempo de execução 9, subscrito fora do intervalo. Como sou leiga no assunto não consigo descobrir o erro para corrigir. Segue a o código gravado manualmente, planilha de cadastro, formulário de cadastro. Sub Macro1() ' ' Salvar Macro ' ' Windows("Cadastro e atestado alunos (OFICIAL).xlsx").Activate Rows("2:2").Select Selection.Copy Rows("3:3").Select Selection.Insert Shift:=xlDown Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False Windows("Fluxo 2017 teste.xlsm").Activate Range("A113").Select Selection.Copy Range("A114").Select Selection.Insert Shift:=xlDown Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False Windows("Avaliação NOVA 2.xlsm").Activate End Sub Cadastro clientes.xlsx Formulário avaliação.xlsm.xlsx