这个模板文件可以去我公众号上下载，只要把你的内容复制进去就可以使用。
下面是代码分享，有共同爱好的人可以练习交流心得。
Sub 计算金额()
Dim sr% 申明整数内型变量
sr = 1 给变量赋初始值
Do 无限循环开头
sr = sr + 1 实现累加
If Cells(sr, "b") = "" Then Exit Do 条件判断语句，条件成立就执行退出无限循环语句。
Cells(sr, "d") = Cells(sr, "b") * Cells(sr, "c") 两个单元格内容相乘再把值赋另一个单元格里面
Loop 无限循环语句尾端。
End Sub