Sub SumUsingWorksheetFunction()
    Dim ws As Worksheet
    ' 修改为你的工作表名
    Set ws = ThisWorkbook.Sheets("Sheet1")

    Dim sumResult As Double
    ' 修改为你的数据范围
    sumResult = Application.WorksheetFunction.Sum(ws.Range("A1:A10"))

    MsgBox "求和结果: " & sumResult
End Sub

A1到A10,1到10

运行结果：

求和结果:55