Sub 통합()

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