VBA Exsel. Как вставить скопированные данные из одного листа в незанятую ячейку другого?

Формулировка задачи:

Здравствуйте.
В VBA Exsel. Существует примитивный макрос:
Макрос1()
' Макрос1 Макрос
'
Selection.Copy
Sheets("Лист3").Select
Range().Select
ActiveSheet.Paste
Спасибо.

Решение задачи: «VBA Exsel. Как вставить скопированные данные из одного листа в незанятую ячейку другого?»

textual
                            Листинг программы 
                        

                            <font color="blue">Public</font> <font color="blue">Function</font> GetRealLastCell() <font color="blue">As</font> Range
<font color="blue">Dim</font> realLastRow <font color="blue">As</font> <font color="blue">Long</font>
<font color="blue">Dim</font> realLastColumn <font color="blue">As</font> <font color="blue">Long</font>
Range(<font color="teal">"A1"</font>).<font color="blue">Select</font>
realLastRow = Cells.Find(<font color="teal">"*"</font>, Range(<font color="teal">"A1"</font>), _
xlFormulas, , xlByRows, xlPrevious).Row

realColumn = Cells.Find(<font color="teal">"*"</font>, Range(<font color="teal">"A1"</font>), _
xlFormulas, , xlByRows, xlPrevious).Column
<font color="blue">Set</font> GetRealLastCell = Cells(realLastRow, realColumn)

<font color="blue">End</font> <font color="blue">Function</font>
                        