Здравствуйте.
В VBA Exsel. Существует примитивный макрос:

Sub Макрос1()
' Макрос1 Макрос

'
Selection.Copy
Sheets("Лист3").Select
'До этого момента идет выполнение макроса, копирующего
'выделенную область в другой лист. Как запустить выполнение проверки
'на первую незанятую строку в выбранном листе и вставки в неё
'скопированных данных? Или использовать иной объект, не Range?
Range(?).Select
ActiveSheet.Paste
End Sub
Спасибо.

Простите, вернее так...

Sub Макрос1()
'
' Макрос1 Макрос
'


Selection.Copy
Sheets("New").Select
Dim GetRealLastCell As String
GetRealLastCell = GetRealLastCell()
'Не пойму как заставить работать подпрограмму GetRealLastCell() внутри этого макроса
GetRealLastCell = ActiveCell ' Что-то вроде этого, но почему-то не работает!
ActiveSheet.Paste
End Sub


Public Sub GetRealLastCell()
Dim realLastRow As Long
Dim realLastColumn As Long
Range("A1").Select

On Error Resume Next
realLastRow = Cells.Find("*", Range("A1"), _
xlFormulas, , xlByRows, xlPrevious).Row
realColumn = Cells.Find("*", Range("A1"), _
xlFormulas, , xlByRows, xlPrevious).Column
Cells(realLastRow, realLastColumn).Select
End Sub

Да нет, в том то и дело, что должно работать как процедура выбора первой не занятой строки в таблице и вставлять в неё скопированные данные из другого листа. GetRealLastCell() - не возвращает значение ячейки, а выбирает её. Возможно, надо запускать процедуру через оператор IF, но я уже и так запутался...

Может я просто запарился со строчками
Dim GetRealLastCell As String
GetRealLastCell = GetRealLastCell()

но это только предположение, я и спрашиваю как заставить подпрограмму работать внутри макроса...

TIKO,
большое спасибо. Методом тыка дошел, примерно до того же самого. Засел на вставке в активный лист, поэтому отдельное спасибо за строку:

Worksheets(1).Paste Destination:=rng

Вопрос немного мимо кассы - есть ли смысл и надобность в, примерно, таких же случаях, в строке кода:

Dim Selection As Range

или это не правильно?