Нужен макрос объединения листов2 из книг excel

[Hitrujka]

Доброе утро! Доброй пятницы, уважаемые форумчане

Столкнулась с необходимостью автоматизации следующей задачи:
Каждый день составляется таблица (примеры структуры во вложении).
Необходимо вести отдельный отчетный файл, собирающий такие таблицы в одну.

Есть ли возможность создать макрос, чтобы находясь в таком файле (приложенный) добавлять все его непустые записи в конец другого непустого файла-отчета (содержащего все предыдущие таблицы)?

Прошу помощи в разработке данного макроса.

[Demetros]

Power Query вам поможет

[Hitrujka]

Сообщение от Demetros

Power Query вам поможет

Не желательно. Человек будет пользоваться, который побаивается excel) потому нужен все-таки макрос.
чтоб надо было просто нажать на кнопочку.

[Aleksandr H.]

1. в Personal.xlsb пишем макрос

Sub test()
    Dim ra As Range: Application.ScreenUpdating = False
    Dim lr As Long
    With Workbooks("Статистика.xlsx").Sheets("Title")
        lr = .Range("A" & .Rows.Count).End(xlUp).row + 1
    End With
    Set ra = Range([a2], Range("a" & Rows.Count).End(xlUp)).SpecialCells(xlCellTypeConstants)
    Intersect(ra.EntireRow, [a:j]).Copy Workbooks("Статистика.xlsx").Sheets("Title").Range("A" & lr)
End Sub

2. создаем книгу "Статистика.xlsx" с листом "title" (если уже существует - открываем ее!)
3. переходим в файл 1.xlsx или 2.xlsx на лист2
4. запускаем макрос из п1.
5. если что-то не нравится - пишем чёткие замечания или ищем свои решения.

[Hitrujka]

Сообщение от Aleksandr H.

1. в Personal.xlsb пишем макрос

Sub test()
    Dim ra As Range: Application.ScreenUpdating = False
    Dim lr As Long
    With Workbooks("Статистика.xlsx").Sheets("Title")
        lr = .Range("A" & .Rows.Count).End(xlUp).row + 1
    End With
    Set ra = Range([a2], Range("a" & Rows.Count).End(xlUp)).SpecialCells(xlCellTypeConstants)
    Intersect(ra.EntireRow, [a:j]).Copy Workbooks("Статистика.xlsx").Sheets("Title").Range("A" & lr)
End Sub

2. создаем книгу "Статистика.xlsx" с листом "title" (если уже существует - открываем ее!)
3. переходим в файл 1.xlsx или 2.xlsx на лист2
4. запускаем макрос из п1.
5. если что-то не нравится - пишем чёткие замечания или ищем свои решения.

Спасибо. Это именно то что надо!
Ничего лишнего.