Объясните пожалуйста, как правильно составить код маркроса

[Вадим199]

Добрый вечер!
Подскажите, пожалуйста, как правильно составить код макроса:
Я составил макрос(условно):
1. Выбирает ячейку а1
2. копирует ее содержимое
3. Выбирает ячейку а2
4. Вставляет в а2 содержимое а1
5. Удаляет то, что было в а1.

Как мне сделать так, что бы когда я следующий раз использовал этот макрос, то что будет в ячейке а1 переместилось в ячейку а3, так как определило, что а2 уже занята (и так же с а3, а...)?
То есть а1 всегда по исходу остаётся пустой, а под ней формируется список того, что раньше было в а1.

Спасибо большое!

[Elixi]

Сообщение от Вадим199

как правильно составить код макроса

как правилно не знаю
сделать то что вы описали можно например так

Sub Copy_A1_To_Ax()
    Dim Rw&
    
    '   если ячейка A1 пустая процедуру заканчиваем
    If Cells(1, 1) = "" Then Exit Sub
    '   определяем последную ячейку в первом столбце для записи
    Rw = Cells(Rows.Count, 1).End(xlUp).Row + 1
    '   не надо ничего выбирать а можно сразу копировать
    Cells(Rw, 1) = Cells(1, 1)
    '   удаляем содержимое ячейки A1
    Cells(1, 1).ClearContents  ' или Cells(1, 1) = ""
    '   если надо, выбираем ячейку A1
    'Cells(1, 1).Activate

End Sub

а когда и как запускать это уже другой вопрос

[IgorGO]

Sub CopyA1ToDown()
  Cells(1).Copy Cells(Rows.Count, 1).End(xlUp).Offset(1)
  Cells(1) = Empty
End Sub

[Вадим199]

Elixi, спасибо большое)

Сообщение от Вадим199

Добрый вечер!
Подскажите, пожалуйста, как правильно составить код макроса:
Я составил макрос(условно):
1. Выбирает ячейку а1
2. копирует ее содержимое
3. Выбирает ячейку а2
4. Вставляет в а2 содержимое а1
5. Удаляет то, что было в а1.

Как мне сделать так, что бы когда я следующий раз использовал этот макрос, то что будет в ячейке а1 переместилось в ячейку а3, так как определило, что а2 уже занята (и так же с а3, а...)?
То есть а1 всегда по исходу остаётся пустой, а под ней формируется список того, что раньше было в а1.

Спасибо большое!

[Вадим199]

Спасибо большое)

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

Sub CopyA1ToDown()
  Cells(1).Copy Cells(Rows.Count, 1).End(xlUp).Offset(1)
  Cells(1) = Empty
End Sub