Как избавиться от объединения ячеек при переносе из экселя в ворд?

Есть таблица. Вот она : https://www.dropbox.com/scl/fi/woz7lpbruip5z5axbsdvx/1.xlsm?dl=0&rlkey=un78wjtv5nxahrniei7ld8e8l

Код макроса:

Sub Word()
Dim WrdApp As Object
On Error Resume Next
If WrdApp Is Nothing Then
Set WrdApp = CreateObject("Word.Application")
Set WrdDoc = WrdApp.Documents.Open("D:\1.docx")
WrdApp.Visible = True
End If
'WrdDoc.Open Filename:="D:\1.doc"
Range("A1:CF7").Copy
WrdDoc.Range(0).Paste
WrdDoc.SaveAs
'Selection.PasteAndFormat (wdFormatPlainText)

End Sub

Задача состоит в переносе таблицы из экселя в ворд.

Проблема в том,что столбцы начиная с "август " и до конца почему-то объединяются в ворде. как избавиться от этого?