Excel - Копіювання даних у наступну порожню клітинку в новому аркуші

Проблема

Я намагаюся зробити 2 листа робочої книги, яка має вхідні дані в Sheet1

A1 і це змінюється щотижня, але інформація в цій комірці повинна бути

вставляється в першу порожню клітинку в колонці A в аркуші 2.

Я спробував цей код (нижче), але він, здається, не працює і, можливо, я

щось не так. Може хто-небудь повідомити мене, якщо цей код повинен працювати

з цією метою чи є інший код, який я можу спробувати?

Код, що використовується зараз:

 Підпрограма копіювання () з аркушами ("Sheet2") n = .Келеси (Rows.Count, "A"). End (xlUp) .Row + 1 .Cells (n, "A"). Resize (, 4) .Value = _ Клітинки (1, "A"). Змінити розмір (, 4) 

Рішення

Спробуйте це:

 Sub CopyRowsWithNumbersInG () Dim X Як довго Dim LastRow As Long Джерело Як робочий лист Dim Destination Як робочий лист Dim RowsWithNumbers As Range Встановити Source = Worksheets ("name") Set Destination = Worksheets ("name") З джерелом LastRow =. Row.Count, "E"). End (xlUp) .Row Для X = 2 Для LastRow Якщо IsNumeric (.Келеси (X, "E"). Значення) І. Cells (X, "E"). Значення "" Тоді, якщо RowsWithNumbers не є нічим, то встановіть RowsWithNumbers = .Cells (X, "E") Else Set RowsWithNumbers = Union (RowsWithNumbers. .Copy Destination.Range ("A4") Кінець, якщо закінчити з MsgBox "Дані оновлено !!", vbExclamation + vbInformation, "Назва компанії" Кінець 

Завдяки Kioskea_1 за цей відгук.