Sub 통합()

    Workbooks.Open Filename:= "C:\예제\Part 03\Chapter 09\샘플\분당점.xlsx"
    Range("A2:H13").Copy
    ThisWorkbook.Activate
    Range("F6").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Workbooks("분당점.xlsx").Close SaveChanges:=False
    
End Sub