Выберите диапазон ячеек и сохраните в новый документ

Question

Я пытаюсь выделить ячейки на листе и экспортировать их в новый документ.

Лист содержит несколько столбцов, однако я хочу выбрать только столбцы от C до E, от четвертой строки допоследняя строка, которая не является пустой в столбце E.

Код, который я написал, выглядит следующим образом:

Sub SelectExcelCopy()
Dim appWD As New Word.Application
appWD.Visible = True
Range("C4", Range("E4").End(xlDown).End(xlToRight)).Copy
    appWD.Documents.Add
    appWD.Selection.Paste
    appWD.ActiveDocument.SaveAs Filename:="File 1"
    appWD.ActiveDocument.Close
appWD.Quit
End Sub

Код работает так, как задумано в новом листе Excel (только дляв целях тестирования), но в моей текущей книге это не так.Лист в моей текущей рабочей книге заполнен большим количеством данных от столбца A до столбца C. Несмотря на то, что в столбце E есть только две записи (E4 и E5), таблица в документе Word содержит 44 столбца и 134 строки.

Я проверил, что лист и ячейки в столбце E пустые, за исключением тех, которые мне нужны в таблице.

Какое изменение я должен внести в код, чтобыдостичь моей цели?Спасибо!

Answer 1

Вот простой пример:

Dim lRow As Long
lRow = Sheet1.Cells(Rows.Count, 5).End(xlUp).Row

Sheet1.Range("C4:E" & lRow).Copy