Как определить пустую ячейку в столбце, после последней "заполненной" - VB

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

Собственно вопрос в теме.
Вот макрос:

Sub данные()

    Sheets("Вчера").Select
    Range("Данные2").Select
    Selection.Copy
    Sheets("Итого").Select
    Dim lLastRow As Long
    lLastRow = Cells(Rows.Count, 1).End(xlUp).Row
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

End Sub

То есть макрос, находит последнюю заполненную ячейку и вставляет данные поверх этой нее, что не есть хорошо.
Нужно сделать так что бы данные вставлялись в следующую ячейку и создавался список данных.
Спасибо за помощь

Решение задачи: «Как определить пустую ячейку в столбце, после последней "заполненной"»

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

                            Sub данные()
Sheets("Вчера").Range("Данные2").Copy
Sheets("Итого").Cells(Sheets("Итого").Cells.SpecialCells(xlCellTypeLastCell).Cells(2, 1).Row, 1).PasteSpecial _
Paste:=xlPasteValues, Operation:=xlNone
End Sub

                        