汇总两两张表显示类型不匹配

cigswin

Sub 季度汇总()
         Dim i, k
                    Dim w As Worksheet, r As Worksheet
                    Set r = Worksheets("季度汇总")
                    For i = 1 To Worksheets.Count
                    Set w = Worksheets(i)
                    If Right(w.Name, 1) = "月" Then
                    For k = 3 To 10
                    r.Cells(k, 3) = r.Cells(k, 3) + w.Cells(k, 3)
                    r.Cells(k, 4) = r.Cells(k, 4) + w.Cells(k, 4)
                    r.Cells(k, 5) = r.Cells(k, 5) + w.Cells(k, 5)
                    r.Cells(k, 6) = r.Cells(k, 6) + w.Cells(k, 6)
                   Next k
                   End If
                   Next i
                 End Sub
这是老师讲的一接汇总季度报表的课程，我感觉以上代码不会实现2个月份的数据相加，只会显示最后一张表的数据汇总到季度汇总表上。运行的时候显示类型不匹配，请各位帮忙看看。