Sub Teste()
Workbooks.Open Filename:="C:\Users\leonardo.pontes\Desktop\Nova pasta\Pasta1.xlsx"
Windows("Pasta1.xlsx").Activate
Sheets("Plan1").Range("A1:C6").Copy
Windows("Macro.xlsm").Activate
Range("A1").Select
ActiveSheet.Paste
Windows("Pasta1.xlsx").Activate
Sheets("Plan2").Range("A1:C3").Copy
Windows("Macro.xlsm").Activate
Range("A1").Select
Do
        If ActiveCell <> "" Then
        ActiveCell.Offset(1, 0).Select
        End If
    Loop Until ActiveCell = ""
    ActiveCell.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Application.CutCopyMode = False
Windows("Pasta1.xlsx").Activate
Sheets("Plan3").Range("A1:C6").Copy
Windows("Macro.xlsm").Activate
Range("A1").Select
Do
        If ActiveCell <> "" Then
        ActiveCell.Offset(1, 0).Select
        End If
    Loop Until ActiveCell = ""
    ActiveCell.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Application.CutCopyMode = False
    
Windows("Pasta1.xlsx").Activate
ActiveWindow.Close

End Sub