Boa tarde galera,
Estou com uma dúvida, na verdade estou com um problema, eu fiz esse código abaixo;
Sub Macro4()
'
' Macro4 Macro
'
'
Range("A4:H4").Select
Selection.Copy
Workbooks.Open ("C:\Users\brspgma\Desktop\New folder\teste.xlsx")
Windows("teste.xlsx").Activate
Range("A4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Rows("4:4").Select
Application.CutCopyMode = False
Application.CutCopyMode = False
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromRightOrBelow
Range("A4").Select
Windows("Pasta1.xlsm").Activate
Range("A4").Select
End Sub
Só que é o seguinte, quando eu executo ele copia certo da planilha chamada "Pasta1" e cola certo no excel chamado "teste", porém ele não fecha e salva esse excel chamado "teste".
Preciso que ele feche e salva a planilha chamada "Teste", já testei um monte e não consegui!
Alguém consegue me ajudar ?