есть список артикулов. из него нужно получить список где для каждого артикула на конце будет добавлено

gistfile1.txt

Sub Join()

    With ThisWorkbook
        Set lData = .Sheets(1).Range("A1")
        Set rData = .Sheets(2).Range("A1")
        Set rngLeft = Range(lData, lData.End(xlDown))
        Set rngRight = Range(rData, rData.End(xlDown))
        
     
        Set Sh = .Sheets.Add(After:=.Sheets(.Sheets.Count))
            
        Dim row As Integer
        row = 1
        For Each l In rngLeft.Cells
        For Each r In rngRight.Cells
        Sh.Cells(row, 1) = l.Text + "_" + r.Text
        row = row + 1
        Next r
        Next l
    
    End With
End Sub