Sub 통합()

    Dim 경로 As String
    Dim 파일 As String
    Dim WB As Workbook
    Dim r As Long
    
    경로 = ThisWorkbook.Path & "\샘플\"

    Range("F6", Range("M6").End(xlDown)).Delete Shift:=xlUp

    For r = 6 To 9

        If Range("C" & r).Value = "O" Then

            파일 = Range("B" & r).Value & ".xlsx"

            Set WB = Workbooks.Open(Filename:=경로 & 파일)
                Range("A2", Cells(Rows.Count, "H").End(xlUp)).Copy
            
            ThisWorkbook.Activate
                Cells(Rows.Count, "F").End(xlUp).Offset(1).Select
                ActiveSheet.Paste
                
            Application.CutCopyMode = False
            
            WB.Close SaveChanges:=False
        
        End If
    
    Next
    
End Sub
