Подсчёт и вывод строк - VBA (48499)

Формулировка задачи:

Здравствуйте. Скажите как реализовать вывод информации в Word с A1 по строку которая заполнена последняя. Знаю что последнюю строчку (заполненную) можно узнать через (Cells.SpecialCells(xlLastCell).Row). А вот вывести не удается. Private Sub CommandButton1_Click() Dim wda As Object Set wda = CreateObject("Word.Application") With wda .Visible = True .Documents.Open "C:\Users\Stepan\Desktop\Расчёт\Шаблоны\2.docx" .ActiveDocument.Bookmarks("aaa").Select End With Worksheets("Шаблоны").Activate Range("A1:E54").Copy - что мне тут написать что бы выводил с A1 по последнюю заполненную строчку? wda.Selection.Paste End Sub

Решение задачи: «Подсчёт и вывод строк»

textual
                            Листинг программы 
                        
                            Range(Cells(1, 1), Cells(Cells.SpecialCells(xlLastCell).ROW, 1)).Copy