вычисление матрицы в VBA

[Лесёк]

Помогите,пожалуйста,составить программу в VBA для решения матричного выражения:
R=((A-Bтранспонированная)*d)транспонирова ть*с+норма A
A=2 3 9
1 8 8

B=
4 2
9 6
6 5

c=
6
6

d=
4
2
7
я написала программу,но выдает ошибку:

Option Explicit
Sub M()
Dim A!(2, 3), B!(3, 2), c!(2, 1), d!(3, 1), Bt!(2, 3), RM!(2, 3), RV!(2, 1), RVt!(1, 2), RV1!(1, 1)
Dim i%, j%, l%, k!, s!, R!
For i = 1 To 2
For j = 1 To 3
A(i, j) = Cells(i, j)
Next j
Next i
For i = 1 To 3
For j = 1 To 2
B(i, j) = Cells(i, j + 1)
Next j
Next i
For i = 1 To 2
For j = 1 To 1
c(i, j) = Cells(i, j + 2)
Next j
Next i
For i = 1 To 3
For j = 1 To 1
d(i, j) = Cells(i, j + 3)
Next j
Next i
For i = 1 To 2
For j = 1 To 3
Bt(j, i) = B(i, j)
Next j
Next i
For i = 1 To 2
For j = 1 To 3
RM = A(i, j) - Bt(j, i)
Next j
Next i
For i = 1 To 2
s = 0
For l = 1 To 3: s = s + RM(i, l) * d(l): Next l
RV(i) = s
Next i
For i = 1 To 1
For j = 1 To 2
RVt(j, i) = RV(i, j)
Next j
Next i
s = 0: For i = 1 To 2: s = s + A(i, j): Next i: Next j
A = Sqr(s): Cells(2, 5) = A
For i = 1 To 1: R = RV1(i) + Norma: Next i
End Sub