VBA помогите пожалуйста 1. Дано целое число В. Найти сумму целых чисел, больших 10 и меньших В. 2. Среди всех двузначных чисел выбрать и вывести только кратные 8. Вывести результаты на листы

Во вложении - файл рабочей книги MS Excel 2003. Макросы - в проекте для первого листа. Ниже их текст. Sub ex1()     b = Cells(1, 2)     s = 0     For i = 11 To b - 1         s = s + i     Next i     Cells(2, 2) = s End Sub Sub ex2()     i = 5     For j = 16 To 99 Step 8         Cells(i, 1) = j         i = i + 1     Next j End Sub