Adding a Horizontal Loop In a Vertical Loop

[DataBlake]

So i have this code that duplicates rows from a sheet (the active sheet) if it meets certain criteria and replaces the first cell with a new text string.
It does exactly what i need it to do vertically.
For each duplicate row i want the range highlighted in red to be replaced by each corresponding

Worksheets("TitleHelper").Range("D" & j)

but i can only get one of the "D" values when i need all 4 (or less)
examples provided below code

Sub parentCHILD()
Dim childROWmax    As Long
Dim parentROWmax   As Long
Dim childCOL       As Long
Dim i              As Long
Dim j              As Long
Dim z              As Long
Dim v              As Long
Dim parentPATTERN  As Range
Dim parentPATTERN2 As Range
Dim parentWEIGHT   As Range
Dim childPATTERN   As Range
Dim oMAX           As Range
Dim oMIN           As Range
Dim childCODE      As Range
Dim parentPART     As Range
Dim newPART        As String
Dim newSHEET       As Worksheet
Dim oldSHEET       As Worksheet

Set oldSHEET = ActiveSheet
parentROWmax = oldSHEET.Cells(Rows.Count, 1).End(xlUp).Row
Set newSHEET = ThisWorkbook.Sheets.Add(After:= _
             ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
    newSHEET.Name = "Result"
childROWmax = Sheets("TitleHelper").Cells(Rows.Count, 1).End(xlUp).Row
MHTROWmax = newSHEET.Cells(Rows.Count, 1).End(xlUp).Row
    
    
    For i = 2 To parentROWmax
        z = 1
    
        'Increment Result sheet row
        MHTROWmax = MHTROWmax + 1

        'get Old row info for comparison
           Set parentPATTERN = oldSHEET.Range("J" & i)
           Set parentPATTERN2 = oldSHEET.Range("K" & i)
           Set parentWEIGHT = oldSHEET.Range("H" & i)
           Set parentPART = oldSHEET.Range("A" & i)
           Set lastCol = oldSHEET.Range("A1").SpecialCells(xlCellTypeLastCell).Column
           
        'Write a row to Result Table
        oldSHEET.Rows(i).Copy newSHEET.Rows(MHTROWmax)

        For j = 2 To childROWmax

            'get TitleHelper row info for comparison
            Set childPATTERN = Worksheets("TitleHelper").Range("A" & j)
            Set oMAX = Worksheets("TitleHelper").Range("C" & j)
            Set oMIN = Worksheets("TitleHelper").Range("B" & j)
            Set childCODE = Worksheets("TitleHelper").Range("F" & j)
            newPART = parentPART & "*" & childCODE
            
            
            'Perform if/then
            If (parentPATTERN = childPATTERN _
                Or parentPATTERN2 = childPATTERN) _
               And parentWEIGHT <= oMAX _
               And parentWEIGHT >= oMIN _
               And z < 5 Then
                   z = z + 1
                   
                'Increment Result sheet row
                MHTROWmax = MHTROWmax + 1

                
                'Criteria is met, write a row to Result Table
                oldSHEET.Rows(i).Copy newSHEET.Rows(MHTROWmax)
                newSHEET.Cells(MHTROWmax, 1) = newPART
                [I][U][COLOR=#ff0000][B]newSHEET.Cells(MHTROWmax, lastCOL + 1) =[/B][/COLOR][/U][/I]
            End If
        Next j

    Next i
End Sub

Here is a working example with excel 2016
https://drive.google.com/file/d/1m_puDtzCMmRMRb_h4kCqEPvpUAJQSSg_/view?usp=sharing

run the macro and it will create a result page, but i need it to produce "Expected Result" sheet
hopefully its easy to understand as i tried to keep the code as clean as possible
it doesn't matter if the "D" values are in one cell of multiple as long as they are in each duplicated row as shown.