Armazenamento de Dados em Pastas utilizando Excel

Ola Boa Noite!

Aqui vai uma dica para quem está procurando cadastrar dados em uma pasta do Excel e armazenar o cadastro em Outra. o Resultado é fantástico. Espero que tenham gostado da dica.


Sub transfer()
 Application.ScreenUpdating = False
 Application.Workbooks.Open ("Saturno\dados_alunos\1\DADOS.XLSX ")
 Windows("DADOS2.XLSm").Activate
 Range("A2:E2").Select
 Selection.Copy
 Windows("DADOS.XLSX").Activate
 Range("A2").Select
 Selection.EntireRow.Insert
 Range("A2").Select
 Selection.PasteSpecial
 Total = (Cells(Rows.Count, 1).End(xlUp).Row) - 1
 Workbooks("DADOS.XLSX").Save
 Windows("DADOS.XLSX").Close
 Range("a2").Select
 MsgBox "Dados Gravados no Servidor com Sucesso... Agora são: " & Total & " de registros cadastrados.", vbInformation, "Dados Gravados..."
 Windows("DADOS2.XLSM").Activate
 Application.WindowState = xlMaximized
 Application.CutCopyMode = False
end Sub