新人初来乍到，刚学第一天，这个错误我打死都没有找到，求解答

我需要求出这个面积和体积单元格的数值，这样错了吗？
Option Explicit
Sub yuan()
Dim r1, s, v
Const P = 3.1415926

    r1 = Cells(3, 4)
    s = P * r1 * r1

    v = 4 / 3 * P * r1 * r1 * r1
   
    Cells(3, 5) = s
    Cells(3, 6) = v
   

End Sub