Перенос данных из Excel в проблему выравнивания слов

всем привет
Я пытаюсь отправить данные из листа Excel в документ Word.
Данные идут отлично, единственная проблема заключается в том, что когда я отправляю данные в слово, содержимое в документе слова искажается.
Помогите, пожалуйста, с моей основной проблемой выравнивания.

Спасибо
Шозиб

Это код, который я использую.

Private Sub CommandButton2_Click ()
Dim objWord как объект
Установите objWord = CreateObject("Word.Application")

Лист1.Диапазон("F1:Q72").Копировать
С objWord
.Документы.Добавить
.Выделение.Вставить
.Visible = True
Конец с

Set objWord = Nothing

End Sub