Циклы с счетчиком, помогите!

[Elena90]

Помогите, не могу решить задачу.
Создайте процедуры, используя циклы со счетчиком.

1) Запросить у пользователя ввод в ячейку А3 числа. Принять это число конечным значением счетчика и вывести все четные числа из диапазона от 1 до значения ячейки А3. Результаты выводить в столбец А, начиная с ячейки А5.

2) Перекрасить содержимое ячеек из диапазона С1:Д1, если их значение превышает 36 в красный цвет, или если не достигает 0 - в синий. А также вывести в ячейку Е3 количество перекрашенных ячеек.

Заранее спасибо

[EducatedFool]

Sub Задача1()
    ' Запросить у пользователя ввод в ячейку А3 числа.
    [a3] = InputBox("Введите конечное значение счётчика", "Задача 1", 25)
    ' Принять это число конечным значением счетчика и вывести все четные числа
    ' из диапазона от 1 до значения ячейки А3.
    For i = 1 To Val([a3]) \ 2
        [a5].Offset(i - 1) = i * 2    ' Результаты выводить в столбец А, начиная с ячейки А5.
    Next
End Sub

Sub Задача2()
    Dim cell As Range, КоличествоПерекрашенныхЯчеек As Long
    For Each cell In [c1:d12].Cells    'Перекрасить содержимое ячеек из диапазона С1:Д12
        Select Case Val(cell)
            Case Is > 36    ' если их значение превышает 36 в красный цвет
                cell.Interior.Color = vbRed
                КоличествоПерекрашенныхЯчеек = КоличествоПерекрашенныхЯчеек + 1
            Case Is < 0    ' или если не достигает 0 - в синий.
                cell.Interior.Color = vbBlue
                КоличествоПерекрашенныхЯчеек = КоличествоПерекрашенныхЯчеек + 1
            Case Else
                ' ничего не делаем
        End Select
    Next cell
    [e3] = КоличествоПерекрашенныхЯчеек    'А также вывести в ячейку Е3 количество перекрашенных ячеек.
End Sub

Пример файла:

[Elena90]

Спасибо огромное, вы мне очень помогли)