[Delirium]

Код:

    Dim FirstRow, FirstCol, LastRow As Integer, LastCol As Integer
    Dim theRange As Range

    FirstRow = Cells.Find(What:="*", SearchDirection:=xlNext, SearchOrder:=xlByRows).Row
    FirstCol = Cells.Find(What:="*", SearchDirection:=xlNext, SearchOrder:=xlByColumns).Column
    LastRow = Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row
    LastCol = Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByColumns).Column
    Set theRng = Range(Cells(FirstRow, FirstCol), Cells(LastRow, LastCol))

    MsgBox ("Первая строка=" & FirstRow & " Последняя строка=" & LastRow & " Первый столбец=" & FirstCol & " Последний столбец=" & LastCol)

Ну а из переменных уже не проблема сделать диапазон, я думаю

Взято отсюда .
Также есть свойство UsedRange, но я не тестировал его.

Код:

DIM rng
rng = ActiveSheet.UsedRange

Возвращает хитрую структурку, необходимо в отладчике будет добавить Watch на данную переменную, чтобы увидеть содержимое.