The below copies all sheets from a selected folder location and renames each sheet. What would need to be added to ignore the sheets named "PLR & ILR". Each workbook in the folder location will have a "PLR & ILR" named sheet.

Sub CombineFiles()
     
    Dim Path            As String
    Dim FileName        As String
    Dim Wkb             As Workbook
    Dim ws              As Worksheet
        Dim xRg As Range, xCell As Range
    Dim xSFileDlg As FileDialog, xDFileDlg As FileDialog
    Dim xSPathStr As Variant, xDPathStr As Variant
    Dim xVal As String
    
     Set xSFileDlg = Application.FileDialog(msoFileDialogFolderPicker)
    xSFileDlg.Title = "Please select the original folder:"
    If xSFileDlg.Show <> -1 Then Exit Sub
    xSPathStr = xSFileDlg.SelectedItems.Item(1) & "\"
     
    Application.EnableEvents = False
    Application.ScreenUpdating = False
    Path = xSPathStr
    FileName = Dir(Path & "\*.xls", vbNormal)
    Do Until FileName = ""
        Set Wkb = Workbooks.Open(FileName:=Path & "\" & FileName)
        For Each ws In Wkb.Worksheets
  ws.Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
    With Sheets(Sheets.Count)
        .Name = .Range("A2") & " " & .Name
    End With
        Next ws
        Wkb.Close False
        FileName = Dir()
    Loop
    Application.EnableEvents = True
    Application.ScreenUpdating = True
     
End Sub