Как удалить разрывы строк в определенной ячейке таблицы слов

Question

У меня сейчас проблемы с кодом VBA.В настоящее время я работаю над формой использования, которая после заполнения заполняет все детали электронного письма, поэтому оно готово к отправке.У меня весь код работает отлично, и все работает хорошо, за исключением одной мелочи:

В моем коде у меня есть 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

Заранее спасибо