类型不匹配求解！

vb
Option Explicit
Sub ABC()
Dim A As Range
Set A = Worksheets("SHEET1").Range("A1:A100")
A.NumberFormat = "0"
Dim B As Range
Set B = Worksheets("SHEET1").Range("B1:B100")
B.NumberFormat = "0"
Dim C(1 To 100) As Long
Dim D(1 To 100) As Long
Dim E(1 To 100) As Long
Dim F(1 To 100) As Long
Dim G(1 To 100) As Long
Dim H(1 To 100) As Long
Dim I(1 To 100) As Long
Dim J(1 To 100) As Long
For I = 1 To 100
Do
C(I) = Int((5 - 2 + 1) * Rnd + 2)
Loop Until C(I) >= 2 And C(I) <= 5
Do
D(I) = 0
Loop Until D(I) >= 0
Do
E(I) = 0
Loop Until E(I) >= 0
Do
F(I) = 0
Loop Until F(I) >= 0
Do Until C(I) + D(I) + E(I) + F(I) = CLng(A.Cells(I, 1))
D(I) = D(I) + 1
E(I) = E(I) + 1
F(I) = F(I) + 1
Loop
If CLng(B.Cells(I, 1)) < 8 Then
G(I) = 6
H(I) = 8
I(I) = 0
J(I) = 0
ElseIf CLng(B.Cells(I, 1)) >= 8 And CLng(B.Cells(I, 1)) < 10 Then
G(I) = 6
H(I) = 8
I(I) = 10
J(I) = 0
Else
G(I) = 6
H(I) = 8
I(I) = 10
J(I) = 12
End If
If (C(I) * G(I) + D(I) * H(I) + E(I) * I(I) + F(I) * J(I)) / CLng(A.Cells(I, 1)) >= CLng(B.Cells(I, 1)) - 1 And _
(C(I) * G(I) + D(I) * H(I) + E(I) * I(I) + F(I) * J(I)) / CLng(A.Cells(I, 1)) <= CLng(B.Cells(I, 1)) + 1 Then
A.Cells(I, 3) = C(I) '将Long类型赋值给A列
A.Cells(I, 4) = D(I)
A.Cells(I, 5) = E(I)
A.Cells(I, 6) = F(I)
A.Cells(I, 7) = G(I)
A.Cells(I, 8) = H(I)
A.Cells(I, 9) = I(I)
A.Cells(I, 10) = J(I)
End If
Next
End Sub

我用的CHATGPT让生成宏，问法：已知A、B两列,求CDEFGHIJ。其中C起始值为2到5之间随机选取。CDEF为大于等于0的整数。C+D+E+F=A。当B＜8时G=6，H=8，I=J=0。当8≤B＜10时G=6，H=8，I=10，J=0。当10≤B时G=6，H=8，I=10，J=12。且满足(C*G+D*H+E*I+F*J)/A的值在B-1≤B≤B+1。

Option Explicit
Sub abc()
　Dim a, i, j, m, n, t
　a = [a1].CurrentRegion.Resize(, 2).Value
　ReDim b(1 To UBound(a), 1 To 8)
　For i = 1 To UBound(a)
　　If a(i, 2) < 8 Then
　　　b(i, 5) = 6: b(i, 6) = 8: b(i, 7) = 0: b(i, 8) = 0
　　ElseIf a(i, 2) < 10 Then
　　　b(i, 5) = 6: b(i, 6) = 8: b(i, 7) = 10: b(i, 8) = 0
　　Else
　　　b(i, 5) = 6: b(i, 6) = 8: b(i, 7) = 10: b(i, 8) = 12
　　End If
　　If a(i, 1) > 2 Then
　　　Do
　　　　Do
　　　　　b(i, 1) = Int(4 * Rnd) + 2
　　　　Loop Until a(i, 1) >= b(i, 1)
　　　　n = a(i, 1) - b(i, 1)
　　　　For j = 2 To 4
　　　　　t = Int(Rnd * (n / 3 * 2))
　　　　　b(i, j) = t: n = n - t
　　　　　If n >= 0 Then
　　　　　　If j = 3 Then
　　　　　　　b(i, 4) = n: Exit For
　　　　　　End If
　　　　　Else
　　　　　　n = a(i, 1) - b(i, 1): j = 1
　　　　　End If
　　　　Next
　　　　If (b(i, 1) * b(i, 5) + b(i, 2) * b(i, 6) + b(i, 3) * b(i, 7) _
　　　　　+ b(i, 4) * b(i, 8)) / a(i, 1) >= a(i, 2) - 1 And _
　　　　　(b(i, 1) * b(i, 5) + b(i, 2) * b(i, 6) + b(i, 3) * b(i, 7) _
　　　　　+ b(i, 4) * b(i, 8)) / a(i, 1) / a(i, 1) <= a(i, 2) + 1 Then Exit Do
　　　　m = m + 1
　　　　If m > 10 ^ 3 Then
　　　　　For j = 1 To 4
　　　　　　b(i, j) = Empty
　　　　　Next
　　　　　Exit Do
　　　　End If
　　　Loop
　　　m = 0
　　End If
　Next
　[c1].Resize(UBound(b), UBound(b, 2)) = b
End Sub