Перемножение транспонированных матриц (исправить ошибку)

Sub макрос()
Dim B(1 To 4, 1 To 4) As Integer
 Dim BT(1 To 4, 1 To 4) As Integer
 Dim D(1 To 9, 1 To 9) As Integer
 
 Dim DT(1 To 9, 1 To 9) As Integer
 Dim BBT(1 To 4, 1 To 4) As Integer
 Dim DDT(1 To 3, 1 To 3) As Integer
Dim z As Integer 'переменная для заполнения одномерного массива
Dim matr()
Dim mas()
 
Call FromRangeToMatrMN(matr, m, n)
'задание матриц
For i = 1 To 4
    For j = 1 To 4
     B(i, j) = Cells(i, j)
 Next j
Next i
'транспонирование B
For i = 1 To 4
     For j = 1 To 4
       
     Next j
     Next i
     'выводим результат транспонирования в виде массива
    For i = 1 To 4
    For j = 1 To 4
        Cells(i + 5, j) = BT(i, j)
Next j
Next i
Call FromRangeToMatrMN(mas, ka, Na)
For i = 1 To 3
 For j = 1 To 3
 D(i, j) = Cells(i, j + 5)
 Next j
Next i
For i = 1 To 3
     For j = 1 To 3
         DT(j, i) = D(i, j)
     Next j
   
Next i 'выводим результат транспонирования в виде массива
    
    For j = 1 To 3
        Cells(i + 5, j + 5) = DT(i, j)
 Next j
Next i
 
 
 For i = 1 To 4
 For j = 1 To 4
 For k = 1 To 4
 BBT(i, j) = BBT(i, j) + B(i, k) * BT(k, j)
 Next k
 Next j
 Next i
 
 For i = 1 To 4
 For j = 1 To 4
 Cells(i + 20, j) = BBT(i, j)
 Next j
 Next i
 
 For i = 1 To 3
 For j = 1 To 3
 For k = 1 To 3
 DDT(i, j) = DDT(i, j) + D(i, k) * DT(k, j)
 Next k
 Next j
 Next i
 
 
 For i = 1 To 3
 For j = 1 To 3
 Cells(i + 20, j + 5) = DDT(i, j)
 Next j
 Next i
 
End Sub