Count duplicates in several columns

You are welcome. Just add/modify the last part of the code :

    With Sheets("Sheet1").Range("K2").Resize(p, 6)
        .Clear
        .Value = arr
        .Columns(1).TextToColumns DataType:=xlDelimited, other:=True, otherchar:=Chr$(2)
        For Each cell In .Columns(1).SpecialCells(xlCellTypeConstants, xlTextValues)
            cell.Resize(, 5).Merge
        Next cell
    End With
End Sub

Regards