Форматирования текста в Worde с помощью макроса

Sub Кнопка1()
Dim AppWord As Word.Application
    Set AppWord = CreateObject("Word.Application")
    AppWord.Documents.Add
    AppWord.Visible = True
    Range("A1000:D1010").Copy 'шапка отчета
    AppWord.Selection.Paste
    Range("A1:E1").Copy 'название колонок
    AppWord.Selection.Paste
    Range("A997:E997").Copy 'входящие остатки
    AppWord.Selection.Paste
    For i = 2 To 999
    If Cells(i, 6) = 1 Then
    Range(Cells(i, 1), Cells(i, 5)).Copy 'строки для вывода
    AppWord.Selection.Paste
    End If
    Next
    Range("A1010:E1012").Copy ' подписанты
    AppWord.Selection.Paste
    Application.CutCopyMode = False
    Set AppWord = Nothing
End Sub