Выделить диапазон заполненных ячеек - 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