Передача даних з Excel у проблему вирівнювання Word

Привіт всім
Я намагаюся надіслати дані з аркуша Excel в документ Word.
Дані йдуть ідеально, єдина проблема полягає в тому, що коли я надсилаю дані в word, алімент у документі word збивається.
Будь ласка, допоможіть з моєю основною проблемою вирівнювання.

Дякую
Шозіб

Це код, який я використовую.

Приватна підкоманда CommandButton2_Click()
Затуманювати objWord як об’єкт
Встановити objWord = CreateObject("Word.Application")

Лист1.Діапазон("F1:Q72").Копіювати
З objWord
.Документи.Додати
.Вибір.Вставити
.Видимо = Правда
Кінець з

Встановити objWord = Нічого

End Sub