Решение задач по программированию в VBA...помогите....Пожалуйста

Ну, собственно вот. Предварительно только на листе Excel надо заполнить массив

Sub Макрос1()
' Задание №1
Dim a(5, 5)
' Заполняем массив с листа
For x = 1 To 5
For y = 1 To 5
a(x, y) = Cells(x, y)
Next y
Next x
' Вычисляем количество и сумму отрицательных элементов
For x = 1 To 5
For y = 1 To 5
If a(x, y) < 0 Then kol = kol + 1: Sum = Sum + a(x, y)
Next y
Next x
' Выводим результат
Cells(7, 1) = kol
Cells(8, 1) = Sum
' Задание №2
Dim k(15)
' Заполняем массив с листа
For i = 1 To 15
k(i) = Cells(10, i)
Next i
Max = k(1)
' Находим max элемент
For i = 1 To 14
If k(i) > Max Then Max = k(i): num = i
Next i
' Выводим результат
Cells(11, 1) = Max
Cells(12, 1) = num
End Sub

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

а где? в ДНК? вообще то принято выкладывать свой текст, а там уже или поправят или новый напишут :)

Program p2;
Var
A: Array[1..12] of Real;
Max : Real;
j : Integer;
Begin
Randomize;
A[1]:=Random(150);
Max:=A[1]
For j:=2 to 12 do
If A[j]>Max
Then
Max:=A[j];
Writeln('Max=',Max);
End.

Это на паскале, надеюсь не возникнет трудностей с переводом на другой язык.
А условие первой задачи не совсем понял.. .