如何删除单词表某些单元格中的换行符

Question

我目前在使用VBA代码时遇到麻烦。我目前正在使用一种用纸，一旦完成，它会填写电子邮件的所有详细信息，以便随时发送。我的所有代码都能正常工作，除了1个小东西之外，其他一切都正常：

在我的代码中，我有一个Case，如果您选择某个选项，它将删除表中的行。 Case可以正常工作，但是由于某种原因，它在末尾留下了4个换行符。我想知道是否还有删除它们的方法。

该案例的代码如下：

Select Case .Range("B6")
        Case ""
            MyDoc.tables(2).Cell(1, 1).Range.Text = VBA.Replace(MyDoc.tables(2).Cell(1, 1).Range.Text, "[Name]", .Range("B4"))

            MyDoc.tables(3).Cell(1, 1).Range.Text = VBA.Replace(MyDoc.tables(3).Cell(1, 1).Range.Text, "[Policy]", .Range("B9"))
            MyDoc.tables(3).Cell(1, 1).Range.Text = VBA.Replace(MyDoc.tables(3).Cell(1, 1).Range.Text, "[RenewalDate]", .Range("B10"))
            MyDoc.tables(3).Cell(1, 1).Range.Text = VBA.Replace(MyDoc.tables(3).Cell(1, 1).Range.Text, "[Insurer]", .Range("B11"))
            MyDoc.tables(3).Cell(1, 1).Range.Text = VBA.Replace(MyDoc.tables(3).Cell(1, 1).Range.Text, "[Premium]", .Range("B12"))
            MyDoc.tables(3).Rows(3).Delete
            MyDoc.tables(3).Rows(2).Delete

            MyDoc.tables(4).Cell(1, 1).Range.Text = VBA.Replace(MyDoc.tables(4).Cell(1, 1).Range.Text, "[Differences]", .Range("B14"))
            MyDoc.tables(4).Cell(5, 1).Range.Text = VBA.Replace(MyDoc.tables(4).Cell(5, 1).Range.Text, "[Current]", .Range("B7"))
            MyDoc.tables(4).Cell(7, 1).Range.Text = VBA.Replace(MyDoc.tables(4).Cell(7, 1).Range.Text, "[Alternate]", .Range("B8"))
            MyDoc.tables(4).Cell(8, 1).Range.Text = VBA.Replace(MyDoc.tables(4).Cell(8, 1).Range.Text, "[NM]", .Range("B43"))
            MyDoc.tables(4).Cell(8, 1).Range.Text = VBA.Replace(MyDoc.tables(4).Cell(8, 1).Range.Text, "[InAd]", .Range("B44"))
            MyDoc.tables(4).Cell(8, 1).Range.Text = VBA.Replace(MyDoc.tables(4).Cell(8, 1).Range.Text, "[BD]", .Range("B45"))
            MyDoc.tables(4).Cell(8, 1).Range.Text = VBA.Replace(MyDoc.tables(4).Cell(8, 1).Range.Text, "[Turn]", .Range("B46"))
            MyDoc.tables(4).Cell(8, 1).Range.Text = VBA.Replace(MyDoc.tables(4).Cell(8, 1).Range.Text, "[Wages]", .Range("B47"))

        Case "Existing Unable To Offer"
            MyDoc.tables(2).Cell(1, 1).Range.Text = VBA.Replace(MyDoc.tables(2).Cell(1, 1).Range.Text, "[Name]", .Range("B4"))

            MyDoc.tables(3).Cell(2, 1).Range.Text = VBA.Replace(MyDoc.tables(3).Cell(2, 1).Range.Text, "[Policy]", .Range("B9"))
            MyDoc.tables(3).Cell(2, 1).Range.Text = VBA.Replace(MyDoc.tables(3).Cell(2, 1).Range.Text, "[RenewalDate]", .Range("B10"))
            MyDoc.tables(3).Cell(2, 1).Range.Text = VBA.Replace(MyDoc.tables(3).Cell(2, 1).Range.Text, "[Insurer]", .Range("B11"))
            MyDoc.tables(3).Cell(2, 1).Range.Text = VBA.Replace(MyDoc.tables(3).Cell(2, 1).Range.Text, "[Premium]", .Range("B12"))
            MyDoc.tables(3).Rows(3).Delete
            MyDoc.tables(3).Rows(1).Delete

            MyDoc.tables(4).Cell(1, 1).Range.Text = VBA.Replace(MyDoc.tables(4).Cell(1, 1).Range.Text, "[Differences]", .Range("B14"))
            MyDoc.tables(4).Cell(5, 1).Range.Text = VBA.Replace(MyDoc.tables(4).Cell(5, 1).Range.Text, "[Current]", .Range("B7"))
            MyDoc.tables(4).Cell(7, 1).Range.Text = VBA.Replace(MyDoc.tables(4).Cell(7, 1).Range.Text, "[Alternate]", .Range("B8"))
            MyDoc.tables(4).Cell(8, 1).Range.Text = VBA.Replace(MyDoc.tables(4).Cell(8, 1).Range.Text, "[NM]", .Range("B43"))
            MyDoc.tables(4).Cell(8, 1).Range.Text = VBA.Replace(MyDoc.tables(4).Cell(8, 1).Range.Text, "[InAd]", .Range("B44"))
            MyDoc.tables(4).Cell(8, 1).Range.Text = VBA.Replace(MyDoc.tables(4).Cell(8, 1).Range.Text, "[BD]", .Range("B45"))
            MyDoc.tables(4).Cell(8, 1).Range.Text = VBA.Replace(MyDoc.tables(4).Cell(8, 1).Range.Text, "[Turn]", .Range("B46"))
            MyDoc.tables(4).Cell(8, 1).Range.Text = VBA.Replace(MyDoc.tables(4).Cell(8, 1).Range.Text, "[Wages]", .Range("B47"))

        Case "More Competitive Quotation"
            MyDoc.tables(2).Cell(1, 1).Range.Text = VBA.Replace(MyDoc.tables(2).Cell(1, 1).Range.Text, "[Name]", .Range("B4"))

            MyDoc.tables(3).Cell(3, 1).Range.Text = VBA.Replace(MyDoc.tables(3).Cell(3, 1).Range.Text, "[Policy]", .Range("B9"))
            MyDoc.tables(3).Cell(3, 1).Range.Text = VBA.Replace(MyDoc.tables(3).Cell(3, 1).Range.Text, "[RenewalDate]", .Range("B10"))
            MyDoc.tables(3).Cell(3, 1).Range.Text = VBA.Replace(MyDoc.tables(3).Cell(3, 1).Range.Text, "[Insurer]", .Range("B11"))
            MyDoc.tables(3).Cell(3, 1).Range.Text = VBA.Replace(MyDoc.tables(3).Cell(3, 1).Range.Text, "[Premium]", .Range("B12"))
            MyDoc.tables(3).Rows(1).Delete
            MyDoc.tables(3).Rows(1).Delete

            MyDoc.tables(4).Cell(1, 1).Range.Text = VBA.Replace(MyDoc.tables(4).Cell(1, 1).Range.Text, "[Differences]", .Range("B14"))
            MyDoc.tables(4).Cell(5, 1).Range.Text = VBA.Replace(MyDoc.tables(4).Cell(5, 1).Range.Text, "[Current]", .Range("B7"))
            MyDoc.tables(4).Cell(7, 1).Range.Text = VBA.Replace(MyDoc.tables(4).Cell(7, 1).Range.Text, "[Alternate]", .Range("B8"))
            MyDoc.tables(4).Cell(8, 1).Range.Text = VBA.Replace(MyDoc.tables(4).Cell(8, 1).Range.Text, "[NM]", .Range("B43"))
            MyDoc.tables(4).Cell(8, 1).Range.Text = VBA.Replace(MyDoc.tables(4).Cell(8, 1).Range.Text, "[InAd]", .Range("B44"))
            MyDoc.tables(4).Cell(8, 1).Range.Text = VBA.Replace(MyDoc.tables(4).Cell(8, 1).Range.Text, "[BD]", .Range("B45"))
            MyDoc.tables(4).Cell(8, 1).Range.Text = VBA.Replace(MyDoc.tables(4).Cell(8, 1).Range.Text, "[Turn]", .Range("B46"))
            MyDoc.tables(4).Cell(8, 1).Range.Text = VBA.Replace(MyDoc.tables(4).Cell(8, 1).Range.Text, "[Wages]", .Range("B47"))

    End Select

预先感谢