VBA - błąd w programie

Witam. Mam do was prośbę. Ten poniższy program ma gdzieś błąd . Możecie mi pomóc go znaleźć?? Thank You from the mountain:)
GG: 2981897

Sub macierz()
Dim a() As Double
Dim n As Long
Dim m As Long
Dim i As Long
Dim j As Long
Dim p() As Long
Dim np() As Long
Dim wiersz As Long
Dim kol As Long
Dim c As Double

n = Cells(1, 2)
m = Cells(2, 2)
Cells(1, 1) = "n="
Cells(2, 1) = "m="
ReDim a(1 To n, 1 To m)

wczytaj_wektory a, n, m, 3, 3
ReDim p(1 To n) As Long
ReDim np(1 To n) As Long

For i = 1 To n
c = 0
p(i) = 0
For j = 1 To m
If a(i, j) Mod 3 = 0 Then
c = c + 1
End If
Next j
p(i) = c
np(i) = n - p(i)
Next i
zapisz_wektory a, n, m, 3, 3

Cells(n + 4, 2) = "podzielne p.3"
Cells(n + 5, 2) = "niepodzielne p.3"

For i = 1 To n
Cells(n + 4, i + m - 1) = p(i)
Cells(n + 5, i + m - 1) = np(i)
Next i

End Sub
Sub wczytaj_wektory(v() As Double, n As Long, m As Long, wiersz As Long, kol As Long)
Dim i As Long
Dim j As Long

For i = 1 To n
For j = 1 To m
v(i, j) = Cells(wiersz + i - 1, kol + j - 1)
Next j
Next i

End Sub
Sub zapisz_wektory(v() As Double, n As Long, m As Long, wiersz As Long, kol As Long)
Dim i As Integer
Dim j As Integer

For i = 1 To n
For j = 1 To m
Cells(wiersz + i - 1, kol + j - 1) = v(i, j)
Next j
Next I

End sub