Автоматическое перенесение строк

[Kapkom]

Добрый день!

У меня следующий вопрос.
Необходимо настроить макрос на автоматический перенос на строки Листа1, в столбце "A:А" которых указано значение "да", из Листа2 строк, в столбце "A:А" которых указано значение 1. Файл с соответствующими таблицами приложен.

Подскажите, пожалуйста, что для этого надо прописать в макросе?

Заранее большое спасибо.

[SAS888]

В данном случае можно поступить очень просто:

Sub Main()
    Dim x As Range, y As Range: On Error Resume Next
    Application.ScreenUpdating = False
    Set x = Sheets("Лист2").[A:A].SpecialCells(2, 1)
    For Each y In x
        y.EntireRow.Cut Sheets("Лист1").[A:A].SpecialCells(2, 2).Cells(1)
    Next
End Sub

Только следует иметь ввиду, что данный макрос перенесет все строки из листа 2, в столбце "A" которых ЛЮБАЯ цифра, в лист 1, в те строки, в столбце "A" которых ЛЮБОЕ текстовое значение. Если так не устраивает, то макрос будет другой.
Пример во вложении.

[Kapkom]

Спасибо большое! Классная штука! Такого макроса мне пока достаточно.