Copiar, Colar e Salvar

[Gabriel Guiraldini]

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 ?

 

[Basole]

Veja se essas alterações lhe ajuda... 

Sub Macro4()
     ' Macro4 Macro
    Dim wb As Workbook, strPathFile As String
    
    strPathFile = "C:\Users\brspgma\Desktop\New folder\teste.xlsx"
    
    Range("A4:H4").Select
    Selection.Copy
    Set wb = Excel.Application.Workbooks.Open(strPathFile)
    Windows("teste.xlsx").Activate
    Range("A4").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Rows("4:4").Select
    Excel.Application.CutCopyMode = False
    Excel.Application.CutCopyMode = False
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromRightOrBelow
    
    Range("A4").Select
       
    If Not wb Is Nothing Then
         wb.Close SaveChanges:=True
    End If
    
    Excel.ThisWorkbook.Activate
    Range("A4").Select
            
End Sub

 

[Gabriel Guiraldini]

@Basole Brigadão ai.

Salvou a planilha!