Выделить диапазон заполненных ячеек - VBA

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

Добрый день. помогите пожалуйста сообразить: как мне выделить диапазон заполненных ячеек в колонке 1: определяет первую заполненную ячейку:

ActiveSheet.Columns(1).Find("*", , xlFormulas, xlWhole).Select

Определяет последнюю заполненную ячейку:

Dim lLastRow As Long
lLastRow = Cells(Rows.Count, 1).End(xlUp).Row

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

Решение задачи: «Выделить диапазон заполненных ячеек»

textual
                            Листинг программы 
                        
                            Range(("A1"), Range("A1").End(xlDown)).Select