如何在遍历三个表分别计算汇总数据

问题遇到的现象和发生背景

问题相关代码，请勿粘贴截图

Sub 总分()
Dim i, k, j
i = 2
For j = 1 To Sheets.Count
Do While Sheets(j).Range("a" & i) <> ""
k = k + Sheets(j).Range("b" & i)
i = i + 1
Loop
Sheets(j).Range("d2") = k
Next
End Sub

运行结果及报错内容

为啥只显示for循环里第一个循环的结果？