Макрос для переноса данных в виде таблицы из Excel в Word

[Jevgeni85]

Добрый день, помогите пожалуйста довести до ума макрос , который бы экспортировал определенные данные из таблицы в виде таблицы
Excel в Word. Критерием для выбора определенной строки из всего объема таблицы служит отмеченный напротив нужной строки флажок.
Как это приблизительно должно выглядеть показано в приложенной таблице.
Вот что удалось получить:


Sub button_click()

End Sub
Sub Makros1()

Dim AppWord As Word.Application

Set AppWord = CreateObject("Word.Application")
AppWord.Visible = True

AppWord.Documents.Add

Range("A5:R5").Copy
AppWord.Selection.Paste

For i = 6 To 10

If Cells(i, 16) = True Then


Cells(i, 1).Copy
AppWord.Selection.Paste


End If

Next

Application.CutCopyMode = False
Set AppWord = Nothing

End Sub

Единственное что, сейчас копируются выделенные ячейки только первого столбца, подскажите пожалуйста как можно расширить этот диапазон и как сделать так, чтобы заголовки таблицы и данные из таблицы брались не из всего диапазона таблицы, а выборочно (например ячейкa 3 столбца 1, столбца 3 и столбца 5) и т.д и выводились в Word.
Буду очень признателен за любую помощь.

[alebed]

Для выборочного выделения используйте
Set a = Range("C1:C10")
Set b = Range("E1:E10")
Set c = Range("G1:G10")
Union(a, b, c).Select
Selection.Copy
ну а дале
AppWord.Selection.Paste

[Jevgeni85]

Добрый день, спасибо за оперативный ответ .
В таком случае он будет просто полностью копировать названные области, но не будет использовать флажок как критерий выбора.

Нашел ошибку в коде, правильно тогда будет:

For i = 6 To 10

If Cells(i, 20) = True Then


Cells(i, 1).Copy
AppWord.Selection.Paste