Excel 在包含连接值的表末尾插入新列

我有一个工作表正在工作，我想设计一个宏，在表的末尾插入一列，以包含表中三列的串联值，它们之间有一个分隔符（“-”）。到目前为止，我已经能够插入新列，但无法连接值。我的代码如下，添加了注释

Sub Demo()
Dim tbl As ListObject
Dim cel As Range
Dim i As Long
Dim delim As String
    Set tbl = ActiveSheet.ListObjects("Table1")
    delim = "-"
    With tbl
        .ListColumns.Add.Name = "CMRD"
        For Each cel In .ListColumns("CMRD").DataBodyRange.Cells
            With .DataBodyRange
                i = cel.Row - 1
                cel.Value = .Cells(i, 6) & delim & .Cells(i, 2) & delim & .Cells(i, 13)
            End With
        Next
    End With
End Sub

任何帮助都将不胜感激。多谢各位

---

编辑：解决方案已验证-代码已更新以反映。

欢迎使用so。什么是失败？根本不是价值观？就在第二排？你能集中注意力吗？无论如何，你的循环看起来是错误的。当单元格（x，28）为“”时，它不应该是

吗？因此，我无法连接这3个值-目前我正在运行代码。我可以在表的末尾插入列，但单元格保持空白。我已经相应地修改了你们推荐的部分，但并没有效果。用F8一步一步地执行你们的代码，并检查你们的循环是否开始。
单元格（x，28）
是空的吗？抱歉，我解释得不太清楚。我的循环似乎没有开始。没有窃听问题。谢谢，我的一个朋友帮我完成了这项工作。我已经相应地更新了代码。谢谢你的帮助。