With this i have only put the "y" next to the "Lorem Ipsum 1" row for it to bring in that detail.

Sub pp()

    Dim ppSl As PowerPoint.Slide
    Dim strPath As String
    Dim rCell As Range, x As Long


    strPath = "C:\Users\A\Desktop\Detailed Findings_VBA.pptx" '< your template location
    
    Set oPPTApp = CreateObject("PowerPoint.Application")
    oPPTApp.Visible = msoTrue
    Set oPPTFile = oPPTApp.Presentations.Open(strPath)
    Set ppSl = oPPTFile.Slides(1)
    
    With Sheet1
        For Each rCell In .Range("C2:C" & .Range("B" & Rows.Count).End(xlUp).Row).Cells
            If rCell.Value = "y" Then
                x = x + 1
                Select Case x
                Case 1
                    With ppSl.Shapes("Group 40")
                        .GroupItems(1).TextFrame.TextRange.Text = rCell.Offset(0, -1).Value
                        .GroupItems(2).TextFrame.TextRange.Text = rCell.Offset(1, -1).Value
                        .GroupItems(3).TextFrame.TextRange.Text = rCell.Offset(2, -1).Value
                    End With
                Case 2
                    With ppSl.Shapes("Group 41")
                        .GroupItems(1).TextFrame.TextRange.Text = rCell.Offset(0, -1).Value
                        .GroupItems(2).TextFrame.TextRange.Text = rCell.Offset(1, -1).Value
                        .GroupItems(3).TextFrame.TextRange.Text = rCell.Offset(2, -1).Value
                    End With
                Case 3
                    With ppSl.Shapes("Group 42")
                        .GroupItems(1).TextFrame.TextRange.Text = rCell.Offset(0, -1).Value
                        .GroupItems(2).TextFrame.TextRange.Text = rCell.Offset(1, -1).Value
                        .GroupItems(3).TextFrame.TextRange.Text = rCell.Offset(2, -1).Value
                    End With
                Case 4
                    With ppSl.Shapes("Group 43")
                        .GroupItems(1).TextFrame.TextRange.Text = rCell.Offset(0, -1).Value
                        .GroupItems(2).TextFrame.TextRange.Text = rCell.Offset(1, -1).Value
                        .GroupItems(3).TextFrame.TextRange.Text = rCell.Offset(2, -1).Value
                    End With
                End Select
            End If
        Next rCell
    End With
    
    With oPPTFile
        .SaveAs "C:\Users\A\Desktop\Detailed Findings_VBA_Edited.pptx"
        .Close
    End With
    
    oPPTApp.Quit
    Set oPPTApp = Nothing
    Set oPPTFile = Nothing
    
End Sub
Hope this helps