Excel: копирование и вставка с использованием макроса

Question

У меня есть книга Excel с двумя листами ("Ввод" и "История").  Идея заключается в следующем:

1. Любой может заполнить данные в листе "Вход"
2. Макрос скопирует данные из "Входных данных" в "Историю"
3. Скопированные данные не должны переопределять предыдущие записи
4. Данные на листе "Ввод" должны быть очищены, чтобы можно было добавлять новые записи

Это кажется легким, но задача состоит в том, чтобы скопировать данные в следующую пустую строку на листе "История" (например, скопировать ячейки A1 и A2 из "Input" в B1 и C1, если они пусты, или в B2 и C2, если предыдущий строка уже содержит данные и т. д. вниз).

Answer 1

Worksheets("Input").Range("A1:A2").Copy
Worksheets("History").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues, Transpose:=True