Я как тот мухамор из рекламы микояновской колбасы с телека:
П О Д Т В Е Р Ж Д А Ю !!!

Рекомендовано Минздравом.

Вот дошли руки и до выделения областей. Рассмотрим для примера такой код:

Dim oWS As Excel.Worksheet = DirectCast(objWB.Worksheets("Лист1", Excel.Worksheet)
' Открываем скрытые колонки
oWS.Cells().EntireColumn.Hidden() = False
' Получаем количество реально заполненных колонок без пустышек
Dim objMissing As Object = System.Reflection.Missing.Value
Dim r1 As Excel.Range = oWS.Range("A15", objMissing)
r1.CurrentRegion.Select()
iColumns = r1.CurrentRegion.Columns.Count
iRows = r1.CurrentRegion.Rows.Count
Dim fromExcel As Object
fromExcel = r1.CurrentRegion.Value2

а проблема в этой строчке oWS.Range("A15", objMissing), ранее я говорил, что область рванная, нельзя сразу сказать сколько будет пустых строк от начала документа и нет гарантии, что на строке А15 не будет пустой строки, а отсюду вытекает если к примеру взять начальную точку А1 пустую (встроен графический объект), она и возвращает область пустых данных. Конечно можно оставить и так, что - бы А15 поподала в область данных, но как то уж кривовато. Твое мнение и предложения PROFI.