여러 통합 문서를 하나의 통합 문서로 결합(닫힘)

Question

여러 통합 문서를 하나의 통합 문서로 결합해야 합니다.

원본 통합 문서에는 고유한 시트 이름 = "작업"이 있습니다.

대상 통합 문서에 시트 이름이 여러 개 있습니다.

아래 코드에는 2가지 문제가 있습니다.

1. For 루프가 작동하지 않습니다
2. 대상 통합 문서에 붙여넣은 데이터를 사용하면 새 시트가 생성됩니다. 하지만 기존 시트에 데이터를 붙여넣어야 합니다.

---

Sub combine()

'destination worksheets    
    Dim Ar As Worksheet
    Dim nr As Worksheet
    Set Ar = ThisWorkbook.Sheets("sheetAr")
    Set nr = ThisWorkbook.Sheets("Sheetnr")
    'Source workbooks
    Dim FolderPath As String
    Dim Filename As String
    Application.ScreenUpdating = False
    FolderPath = Environ("userprofile" & "\Desktop\Copy")
    Filename = Dir(FolderPath & "*.xlsx*")
    
    Do While Filename <> ""
    Workbooks.Open Filename:=FolderPath & Filename, ReadOnly:=True
    Dim ws As Worksheet
    Dim AW As Workbook
    
    Set AW = ActiveWorkbook
    Set ws= ActiveWorkbook.Sheets("Job")
    
     For Each AW In ws
     AW.Activate
     Cells.ShownAll
     ws.Copy Ar
     Next AW
     Workbooks(Filename).Close savechanges = True
     Filename = Dir()
    Loop
    Application.ScreenUpdating = True
    End Sub`