Хочу написать макрос, не получается. Прошу помощи

[kzld]

На активном листе найти первую незаполненную ячейку в столбце A
Скопировать диапазон ячеек с другого листа на активный лист
Начиная с первой (ранее найденой) незаполненой ячейки.

[IgorGO]

вот это:

Sub copy1()
  Sheets(2).Select
  Selection.Copy
  Sheets(1).Select
  ActiveSheet.Paste Range("A1").End(xlDown).Offset(1)
End Sub

скопирует в первую незаполненную ячеку листа 1 отмеченные на листе 2 ячейки.

[SAS888]

Можно чуть проще.
Следующий код скопирует диапазон ячеек "A1:D10" листа № 2 и вставит в активный лист, начиная со следующей после последней заполненной ячейки столбца "A".

Sheets(2).[A1:D10].Copy Cells(Rows.Count, "A").End(xlUp).Offset(1)

P.S. Обратите внимание на разницу между первой незаполненной и последней заполненной ячейкой (а Вам что нужно?). При поиске первой незаполненной ячейки методом IgorGO,если "ниже" ячейки "A1" нет данных, то будет ошибка, т.к. Excel попытается вставить скопированный диапазон в последнюю строку рабочего листа.

[kzld]

А можно поподробнее. Только начинаю изучать макросы.
Sheets(2).[A1:D10]
перейти на лист 2 и скопировать в буфер диапазон A1:D10
Изменил на
Sheets(заг).[A3:O18]
Copy Cells(Rows.Count, "A").
Что делает эта строка кода?
End(xlUp).Offset(1)
Что делает эта строка кода?
У меня ругается и говорит
can`t execute code in break mode
Что означает Offset(1)
Именно 1 выделена синим курсором при ругательстве

P.S. Обратите внимание на разницу между первой незаполненной и последней заполненной ячейкой (а Вам что нужно?).
Первую незаполненную

[kzld]

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

вот это:

Sub copy1()
  Sheets(2).Select
  Selection.Copy
  Sheets(1).Select
  ActiveSheet.Paste Range("A1").End(xlDown).Offset(1)
End Sub

скопирует в первую незаполненную ячеку листа 1 отмеченные на листе 2 ячейки.

Sheets(2).Select
отмеченные на листе 2 ячейки. а как их отметить ?
мне нужен диапазон A3:O18

[kzld]

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

вот это:

Sub copy1()
  Sheets(2).Select
  Selection.Copy
  Sheets(1).Select
  ActiveSheet.Paste Range("A1").End(xlDown).Offset(1)
End Sub

скопирует в первую незаполненную ячеку листа 1 отмеченные на листе 2 ячейки.

Изменил
Sheets(2).Select
на
Sheets(заг).Select
Ругается и говорит следующее
Run-time error `9`:
Subscript out of range

[IgorGO]

Run-time error `9`:

Заменить:
Sheets(заг).Select
на
Sheets("заг").Select
Если диапазон один и тот же - удобнее использовать то, что SAS888 написал.

А отметить просто:
Просто пройдитесь по листам, видите на каждом листе отмечена какая-то ячейка (или группа ячеек). Можно пройтись по любым листам, пробежаться курсором по любым ячейкам, активной (отмеченной) будет та ячейка, где оставили курсор.

вообще, в моем макросе есть серьезная дыра: ее описал SAS888. Воспользуйтесь лучше его макросом.

[SAS888]

(а Вам что нужно?).
Первую незаполненную

Т.е если, например, в столбце "A" заполнены ячейки в строках 1, 2, 3, 8, 9, 10, то Вам нужно вставить данные в ячейку "A4"? Это и есть первая незаполненная.
Так или иначе, строка Cells(Rows.Count, "A").End(xlUp).Offset(1) аналогична действиям: выделить последнюю ячейку столбца "A" (например, в 2003 это "A65536"), нажать "End"+"стрелка вверх" и сместиться на одну строку вниз.
Соответственно, строка Range("A1").End(xlDown).Offset(1) - выделить "A1", нажать "End"+"стрелка вниз" и сместиться на строку вниз. Попробуйте сделать эти действия "вручную" и выберите то, что Вам нужно.

[kzld]

[QUOTE=SAS888;240244]Можно чуть проще.
Следующий код скопирует диапазон ячеек "A1:D10" листа № 2 и вставит в активный лист, начиная со следующей после последней заполненной ячейки столбца "A".

Sheets(2).[A1:D10].Copy Cells(Rows.Count, "A").End(xlUp).Offset(1)

Ура, ЗАРАБОТАЛО. Всем спасибо

P.S. Обратите внимание на разницу между первой незаполненной и последней заполненной ячейкой (а Вам что нужно?).
Оказалось мне надо последнюю заполненную ячейку