Ошибка '9', не могу найти ошибку.

Private Sub CommandButton1_Click()
Dim RRR, WW, GG, FFF
 
kpcc Лист1.Range(Лист2.Range("a1")), Лист2.Range("a3"), Лист2.Range("a2"), WW, RRR, GG, FFF
Лист3.Range("b4").Resize(UBound(GG), UBound(GG)) = GG
Лист3.Range("b24").Resize(UBound(FFF), UBound(FFF)) = FFF
TXT_WRITER WW, Лист3.Range("a2"), "C:\1.txt"
TXT_WRITER RRR, Лист3.Range("a2"), "C:\2.txt"
 
End Sub
 
 
Public Sub kpcc(rgn As Range, t As Long, y As Long, CC, CXR, CA, AXR)
Dim n As Long, l As Long, h As Long, g As Long, w As Long, s As Long, i As Long, j As Long, d As Long, v As Long, p As Long, m As Long, b As Long, AA1 As Double, AA2 As Double, Disp1 As Double, Disp2 As Double, x As Double, corr As Double
Dim RR
RR = rgn.Value
ReDim CA(1 To y, 1 To y) 
ReDim C1(1 To y, 1 To y) 
ReDim A1(1 To y - 1, 1 To y - 1) 
ReDim A2(1 To y - 1, 1 To y - 1) 
ReDim A3(1 To y - 1, 1 To y - 1) 
ReDim XR(1 To y, 1 To y)  
ReDim AXR(1 To y, 1 To y) 
ReDim CC(1 To (UBound(RR) / t)) 
ReDim CXR(1 To (UBound(RR) / t))
 
 
For q = 0 To (UBound(RR) / t) - 1
 
For w = 1 To y
For s = 1 To y
 
corr = 0
 
AA1 = 0
AA2 = 0
For n = 1 To t
AA1 = AA1 + RR(n + t * q, w) / t
AA2 = AA2 + RR(n + t * q, s) / t
Next
 
x = 0
Disp1 = 0
Disp2 = 0
For n = 1 To t
Disp1 = Disp1 + (RR(n + t * q, w) - AA1) ^ 2
Disp2 = Disp2 + (RR(n + t * q, s) - AA2) ^ 2
x = x + (RR(n + t * q, w) - AA1) * (RR(n + t * q, s) - AA2)
Next 
 
corr = corr + (x / Sqr(Disp1 * Disp2))
 
C1(w, s) = corr
If w = s Then CA(w, s) = 10 Else CA(w, s) = CA(w, s) + ((1 / 2) * Log((1 + C1(w, s)) / (1 - C1(w, s)))) / (UBound(RR) / t)
Next 
Next
 
 
For i = 0 To y - 1
For j = 0 To y - 1
 
 
For l = 0 To y - 2
For p = 0 To y - 2
h = 0
g = 0
d = 0
v = 0
b = 0
m = 0
If p >= i Then h = p + 1 Else h = p
If l >= j Then g = l + 1 Else g = l
A1(p + 1, l + 1) = C1(h + 1, g + 1)
Next 
Next 
 
For l = 0 To y - 2
For p = 0 To y - 2
If p >= i Then d = p + 1 Else d = p
If l >= i Then v = l + 1 Else v = l
A2(p + 1, l + 1) = C1(d + 1, v + 1)
Next 
Next 
 
For l = 0 To y - 2
For p = 0 To y - 2
If p >= j Then b = p + 1 Else b = p
If l >= j Then m = l + 1 Else m = l
A3(p + 1, l + 1) = C1(b + 1, m + 1)
Next 
Next
 
XR(i + 1, j + 1) = (-1) * ((-1) ^ (i + j)) * Application.WorksheetFunction.MDeterm(A1) / Sqr(Application.WorksheetFunction.MDeterm(A2) * Application.WorksheetFunction.MDeterm(A3))
Next
Next
 
For i = 0 To y - 1
For j = 0 To y - 1
If i = j Then AXR(i + 1, j + 1) = 10 Else AXR(i + 1, j + 1) = AXR(i + 1, j + 1) + ((1 / 2) * Log((1 + XR(i + 1, j + 1)) / (1 - XR(i + 1, j + 1)))) / (UBound(RR) / t)
Next
Next 
 
CC(q + 1) = C
CXR(q + 1) = XR
 
Next  
Erase A1
Erase A2
Erase A3
Erase XR
Erase CA
Erase C1
Erase AXR
Erase CXR
Erase CC
 
End Sub
 
Sub TXT_WRITER(RR, k, Filename)
Dim n As Long, l As Long, j As Long, m As Long
Dim FSO As Object, strLine  As String, WW
Dim objStream As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
Set objStream = FSO.CreateTextFile(Filename)
With objStream
j = UBound(RR)
For n = 1 To j
 WW = RR(n)
For l = 1 To k
strLine = ""
For m = 1 To k
 
 strLine = strLine & WW(l, m) & vbTab & vbTab
 
 
Next
 
 .WriteLine strLine
 
Next
 .WriteLine
  .WriteLine
  .WriteLine
Next
 
    .Close
End With
    Set objStream = Nothing
    Set FSO = Nothing
 
 
 
End Sub