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