Insert Data by Browser File (MultiSelect File) - VBA @pp_92

Private Sub insert_r2018_accp_rate()

Dim A As Variant
Dim B As Workbook
  
A = Application.GetOpenFilename(MultiSelect:=True)

Application.ScreenUpdating = False
Application.DisplayAlerts = False
Application.AskToUpdateLinks = False
Application.EnableEvents = False

On Error Resume Next

For Each Item In A

    If ThisWorkbook.Worksheets("R2018 (AR)").Range("A1") = "" Then
    Set B = Application.Workbooks.Open(Item)
    B.Activate
    Rows("6:6").Select
    Selection.AutoFilter
    ActiveSheet.Range("A6:O6").AutoFilter Field:=5, Criteria1:="SRM"
    B.Sheets(1).Range("A6:O6").Select
    Range(Selection, Selection.End(xlDown)).Copy
    ThisWorkbook.Worksheets("R2018 (AR)").Range("A1").PasteSpecial
    B.Close False
                
        Else
        Set B = Application.Workbooks.Open(Item)
        B.Activate
        Rows("6:6").Select
        Selection.AutoFilter
        ActiveSheet.Range("A6:O6").AutoFilter Field:=5, Criteria1:="SRM"
        B.Sheets(1).Range("A6:O6").Select
        Range(Selection, Selection.End(xlDown)).Copy
        ThisWorkbook.Worksheets("R2018 (AR)").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial
        B.Close False
                
    End If
    
Next

On Error GoTo 0

Application.ScreenUpdating = True
Application.DisplayAlerts = True
Application.AskToUpdateLinks = True
Application.EnableEvents = True
        
End Sub