Как сделать циклическое выполнение операций

[Insainer]

Здравствуйте уважаемые.
У меня простой вопрос: "Как сделать циклическое выполнение операций, приведенных ниже примерно до 5000 раз".

Код: (vb)

Selection.Copy

    Range("A1").Select
    ActiveSheet.Copy
    Range("A2").Select
    ActiveSheet.Paste
    Rows("1:1").Select
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlUp

    Range("A2").Select
    Selection.Copy
    Range("A3").Select
    ActiveSheet.Paste
    Rows("2:2").Select
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlUp

    Range("A3").Select
    Selection.Copy
    Range("A4").Select
    ActiveSheet.Paste
    Rows("3:3").Select
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlUp

    Range("A4").Select
    Selection.Copy
    Range("A5").Select
    ActiveSheet.Paste
    Rows("4:4").Select
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlUp

    Range("A5").Select
    Selection.Copy
    Range("A6").Select
    ActiveSheet.Paste
    Rows("5:5").Select
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlUp

Комментарий администратора

Коды оформляйте тегами VBCode. п.п. 4.25 Правил форума

[vikttur]

Копируем выделенное

Выделяем ячейку А1
Копируем лист
Выделяем ячейку А2
Вставляем копированное на лист
Выделяем строку 1

Набор команд... Чего Вы хотите добиться? Задача какая?

[Дмитрий Щербаков(The_Prist)]

У меня простой вопрос: "Как сделать циклическое выполнение операций, приведенных ниже примерно до 5000 раз"

а тему назвали почему-то совершенно непонятно, вместо вменяемого. Переименовал.
Плюс Коды оформляйте тегами VBCode. п.п. 4.25 Правил форума. Делать это за Вас постоянно я не буду

И по сути по приведенному коду мало понятно чего Вы хотите сделать. Опишите своими словами задачу - скорее всего она решается проще.

[Insainer]

Есть файл, нужно первую ячейку с названием опустить на строку с данными за место первого значения (за прошлый месяц), пустую (старую строку удалить, но не данные). Такого отчета для выгрузки в программе нет, приходится копировать, но копированный ставит название вверху, а данные на следующей строке, форматировать вручную невозможно. В Excel'е нужно написать простую программу в цикле. Приведенный макрос рабочий, но нужно, чтобы он тянулся до конца документа. Алгоритм простой, у меня просто ужас с пониманием vba, не могу написать рабочий код. Помогите пожалуйста, отчет супер важный, книгу прикладываю.

PS: может есть какой-нибудь вариант с анализом данных? У меня много рутинных задач, хочется разобраться с проблемными точками учета, не могу потратить целый день на выяснения, а то и больше.   

[Дмитрий Щербаков(The_Prist)]

первую ячейку с названием опустить на строку с данными за место первого значения (за прошлый месяц), пустую (старую строку удалить, но не данные)

это не похоже на то, что в коде. Нет ни намека на копирование листа.

Алгоритм простой

но описать его понятными словами Вы, видимо, не хотите...Приложенный файл картины не проясняет. Сидеть и ковырять Ваш файл в попытках угадать что там надо получить в итоге то еще занятие.
Что ж - дело Ваше. Тянуть из Вас информацию нет никакого желания.

не могу потратить целый день на выяснения

согласен, тоже тратить время на выяснение задачи не хочется