Так уж и все?
Почему-то думается, что первые две ячейки в строке - размеры деталей, количество которых задано в третьей ячейке.
C3*D3*E3/1000000=0,24864 кв.м.
Далее суммировать результаты, полученные в каждой строке.

Или все-таки все-все-все перемножить? Какая-то монструозная многоугольная деталь  

Производить вычисления с указанным диапазоном или именно с выделенным (выделяем определенный диапазон и вычисления происходят только в этом диапазоне)? Если второе, то нужно еще определять, правильно ли сделано выделение?

Спасибо за ответы,vikttur и Юрий!    
Главное - перемножить всё в выделении и разделить на миллион(10^6),а результат вывести в userform1.
в TextBox на форме.

Вычисления будут в дальнейшем происходить в разных диапазонах.

Проверку на то,введены ли цифры в диапазоне делать не надо.

Выделение будет производится мышкой.
Выделили,нажали кнопку макрос, прочитали результат(записали) и закрыли Userform1.

Данные(именно три столбца) могут быть и ниже строчками.
Например,сейчас они находятся в диапазоне C3:E7.
А могут находится в диапазоне I1:K21.

Но всегда данные состоят из 3 столбцов
(первая и вторая колонка - размеры,третья колонка - количество)

Нахождение на листе,в книге - где угодно.
Их и надо перемножить. Важна сумма площадей.

Простите,vikttur! - да сумма площадей.

4,34819
Извините,пожалуйста,Юрий ..забыл сказать...
Сумма площадей итоговая ,отражённая в Listbox1 округлена до 2 знаков после запятой.
То есть результат здесь
4,35

Извините,Юрий...я просил разделить умноженное..

площадь
Код ? 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Sub SummProizv() Dim ArrRange Dim Rng As Range Dim Summ As Double Dim Proizv As Double Dim i As Long       Set Rng = Range("C3:E7")     ArrRange = Rng.Value           For i = 1 To UBound(ArrRange, 1)         Proizv = ArrRange(i, 1) * ArrRange(i, 2) * ArrRange(i, 3) / 1000000         Summ = Summ + Proizv     Next i           MsgBox Summ End Sub

С объемом - погорячился, код удалил.

Спасибо вам Юрий и vikttur!

Юрий - в Вашем случае - всё работает исправно.
Именно в #1 задании так и сказано.
Но в #4 в дальнейшем сказал,когда отвечал на вопросы:
и далее в #6
Простите,Юрий..можно это изменить?...

В Вашем случае,vikttur - всё считается в диапазоне CDE,но по заполненным ячейкам.(да?)
А важно - по выделению.
+ Алгоритма не понял. Пробовал менять цифры в столбце E - результат не меняется.
Оставьте,пожалуйста - тоже устраивает вариант с msgbox

Спасибо,vikttur!
То есть в три действия - сначала нажали кнопку,выбрали диапазон,нажали ОК.
Супер!:)Всё работает!
*понятно,что дарёному коню..но всёже.. а вот так:
выбрали диапазон,нажали кнопку?

А по номеру #13 и #17- конечно,могу код изменить для нужных мне колонок.
Да, всё работает! Спасибо!

А если на листе в разных диапазонах находятся два диапазона для расчётов?
Тогда нужно два макроса написать. А если три диапазона - то три?

При моих расчётах такая очерёдность будет: повешу на одно сочетание кнопок Ваш макрос.
Выделил диапазон,нажал сочетание- получил сумму площадей - записал.
Далее - также.

Именно так в моём вариант и происходит. Что теперь неправильно?