VBA Index Match add Row

Try the macros below: put the code into a macro-enabled .xlsm file, and save that file in the same folder with the RM file and all the PL files (I have assumed everything is in the same folder). Then run "LoopThroughPLFiles". Try it out on copies of a few files first.... just to be certain. Not sure why, but the file you attached starts with just "P" and not "PL".... I'm guessing that is just a typo. I have also assumed that none of the files have multiple sheets....

Option Explicit
Public wkbkRM As Workbook
Public wsRM As Worksheet

Sub LoopThroughPLFiles()
    Dim strFName As String
    Dim strPath As String
    Dim strWFile As String
    Dim wkbkWF As Workbook
    
    Application.DisplayAlerts = False
       
    strPath = ThisWorkbook.Path & "\"
    
    Set wkbkRM = Workbooks.Open(strPath & "RM File.xlsx")
    Set wsRM = wkbkRM.Worksheets(1)
    
    strWFile = Dir(strPath & "*.xlsx")
    
    Do While strWFile <> ""
        If strWFile Like "PL*" Then
            Set wkbkWF = Workbooks.Open(strPath & strWFile)
            ProcessPLFile wkbkWF
            wkbkWF.Save
            wkbkWF.Close
        End If
        strWFile = Dir()
    Loop
    wkbkRM.Close False
End Sub

Sub ProcessPLFile(wkbkWB As Workbook)
    Dim lngR As Long
    Dim wsW As Worksheet
    Dim rngF As Range
    
    Set wsW = wkbkWB.Worksheets(1)
    
    For lngR = wsW.Cells(wsW.Rows.Count, "I").End(xlUp).Row To 2 Step -1
        Set rngF = wsRM.Range("D:D").Find(wsW.Cells(lngR, "I"))
        If Not rngF Is Nothing Then
            wsW.Rows(lngR + 1).EntireRow.Insert
            wsW.Cells(lngR + 1, "H").Value = wsW.Cells(lngR, "I").Value
            wsW.Cells(lngR + 1, "I").Value = wsRM.Cells(rngF.Row, "F").Value
            wsW.Cells(lngR + 1, "K").Value = wsRM.Cells(rngF.Row, "G").Value
            wsW.Cells(lngR + 1, "M").Value = wsRM.Cells(rngF.Row, "I").Value
            wsW.Cells(lngR + 1, "N").Value = wsRM.Cells(rngF.Row, "E").Value
        End If
    Next lngR
                    
End Sub

Replace this:

        If Not rngF Is Nothing Then
            wsW.Rows(lngR + 1).EntireRow.Insert
            wsW.Cells(lngR + 1, "H").Value = wsW.Cells(lngR, "I").Value
            wsW.Cells(lngR + 1, "I").Value = wsRM.Cells(rngF.Row, "F").Value
            wsW.Cells(lngR + 1, "K").Value = wsRM.Cells(rngF.Row, "G").Value
            wsW.Cells(lngR + 1, "M").Value = wsRM.Cells(rngF.Row, "I").Value
            wsW.Cells(lngR + 1, "N").Value = wsRM.Cells(rngF.Row, "E").Value
        End If

With this:

        If Not rngF Is Nothing Then
            If wsRM.Cells(lngR, "F").Value <> "" Then
                wsW.Rows(lngR + 1).EntireRow.Insert
                wsW.Cells(lngR + 1, "H").Value = wsW.Cells(lngR, "I").Value
                wsW.Cells(lngR + 1, "I").Value = wsRM.Cells(rngF.Row, "F").Value
                wsW.Cells(lngR + 1, "K").Value = wsRM.Cells(rngF.Row, "G").Value
                wsW.Cells(lngR + 1, "M").Value = wsRM.Cells(rngF.Row, "I").Value
                wsW.Cells(lngR + 1, "N").Value = wsRM.Cells(rngF.Row, "E").Value
            End If
        End If

Not sure what you want to do with M and N values - add them to the original row as well as the new row?

This should do what you want... sorry for the delay - took a long weekend

Option Explicit
Public wkbkRM As Workbook
Public wsRM As Worksheet

Sub LoopThroughPLFiles()
    Dim strFName As String
    Dim strPath As String
    Dim strWFile As String
    Dim wkbkWF As Workbook
    
    Application.DisplayAlerts = False
       
    strPath = ThisWorkbook.Path & "\"
    
    Set wkbkRM = Workbooks.Open(strPath & "RM File.xlsx")
    Set wsRM = wkbkRM.Worksheets(1)
    
    strWFile = Dir(strPath & "*.xlsx")
    
    Do While strWFile <> ""
        If strWFile Like "PL*" Then
            Set wkbkWF = Workbooks.Open(strPath & strWFile)
            ProcessPLFile wkbkWF
            wkbkWF.Save
            wkbkWF.Close
        End If
        strWFile = Dir()
    Loop
    wkbkRM.Close False
End Sub

Sub ProcessPLFile(wkbkWB As Workbook)
    Dim lngR As Long
    Dim wsW As Worksheet
    Dim rngF As Range
    
    Set wsW = wkbkWB.Worksheets(1)
    
    For lngR = wsW.Cells(wsW.Rows.Count, "I").End(xlUp).Row To 2 Step -1
        Set rngF = wsRM.Range("D:D").Find(wsW.Cells(lngR, "I"))
        If Not rngF Is Nothing Then
            If wsRM.Cells(lngR, "F").Value <> "" Then
                wsW.Rows(lngR + 1).EntireRow.Insert
                wsW.Cells(lngR + 1, "H").Value = wsW.Cells(lngR, "I").Value
                wsW.Cells(lngR + 1, "I").Value = wsRM.Cells(rngF.Row, "F").Value
                wsW.Cells(lngR + 1, "K").Value = wsRM.Cells(rngF.Row, "G").Value
                wsW.Cells(lngR + 1, "M").Value = wsRM.Cells(rngF.Row, "I").Value
                wsW.Cells(lngR + 1, "N").Value = wsRM.Cells(rngF.Row, "E").Value
                wsW.Cells(lngR, "M").Value = wsRM.Cells(rngF.Row, "I").Value
                wsW.Cells(lngR, "N").Value = wsRM.Cells(rngF.Row, "E").Value
            End If
        End If    Next lngR
                    
End Sub