Не записывает вычисленные значения a1, a2, a3 в ячейки листа

Sub Задаем_значения_SnAn_ячейкам()
Dim a
    Randomize
    a = Array(0, 1)
    [c3] = a(Int((2 * Rnd) + 1) - 1)
    [d4] = a(Int((2 * Rnd) + 1) - 1)
    [e3] = a(Int((2 * Rnd) + 1) - 1)
    [e4] = a(Int((2 * Rnd) + 1) - 1)
    [f5] = a(Int((2 * Rnd) + 1) - 1)
    [g4] = a(Int((2 * Rnd) + 1) - 1)
    [h4] = a(Int((2 * Rnd) + 1) - 1)
End Sub

Sub Присваиваем_значения_SnAn_из_ячеек()
Dim s1a1 As Integer, s3a1 As Integer, s2a2 As Integer, s3a2 As Integer, s5a2 As Integer, s6a2 As Integer, s4a3 As Integer
s1a1 = Cells(3, 3).Value
s2a2 = Cells(4, 4).Value
s3a1 = Cells(3, 5).Value
s3a2 = Cells(4, 5).Value
s4a3 = Cells(5, 6).Value
s5a2 = Cells(4, 7).Value
s6a2 = Cells(4, 8).Value
End Sub

Sub Присваиваем_значения_S_из_ячеек()
Dim s1 As Integer, s2 As Integer, s3 As Integer, s4 As Integer, s5 As Integer, s6 As Integer
s1 = Cells(2, 3).Value
s2 = Cells(2, 4).Value
s3 = Cells(2, 5).Value
s4 = Cells(2, 6).Value
s5 = Cells(2, 7).Value
s6 = Cells(2, 8).Value
End Sub

Sub Считаем_a()
Dim a1 As Integer, a2 As Integer, a3 As Integer
a1 = (s1 * s1a1) + (s3 * s3a1)
[b3] = a1
a2 = (s2 * s2a2) + (s3 * s3a2) + (s5 * s5a2) + (s6 * s6a2)
Cells(4, 2).Value = a2
a3 = (s4 * s4a3)
Cells(5, 2).Value = a3
End Sub

Private Sub CommandButton1_Click()
Задаем_значения_SnAn_ячейкам
Присваиваем_значения_SnAn_из_ячеек
Присваиваем_значения_S_из_ячеек
Считаем_a
End Sub

Sub sum(x,y)
    cells(1,1) = x+y
End Sub
 
Sub test()
    call sum (12, 54) ' тут передаём
End Sub