Searches all sheets in wb for exact string in column, copy/paste certain data from row

I have a macro (much thanks and kudos to arlu) that will search through a workbook and pull data from a certain column in each sheet. What I need now is to be able to pull other parts of the row that data is in onto that same sheet.
Macro is:

Sub cons_data()
Dim i As Long, lrow As Long

Application.ScreenUpdating = False

For i = 1 To Worksheets.Count
    With Worksheets(i)
        If .Name <> "Recommendations" Then
            lrow = .Range("L" & .Rows.Count).End(xlUp).Row
            If lrow > 9 Then .Range("L10:L" & lrow).Copy Worksheets("Recommendations").Range("B" & Rows.Count).End(xlUp).Offset(1, 0)
        End If
    End With
Next i

With Worksheets("Recommendations")
    lrow = .Range("B" & .Rows.Count).End(xlUp).Row
    .Range("B5:B" & lrow).RemoveDuplicates Columns:=1, Header:=xlYes
End With


MsgBox "Done"

Application.ScreenUpdating = True

End Sub

I need to pull the person responsible, the Risk ranking L&S which are the highest for Personnel, and the highest for Environmental, and then the Item no. which corresponds to those rankings.

I have attached a testbook which gives an example.

Thank you very much to anyone who can assist me!