请大神帮忙看一下最后一段代码为什么错误

bkzy333

Sub 路径统计()
'每个月路径统计方法，2019-6-18
    Cells(Rows.Count, "c").End(xlUp).Offset(1, 0) = WorksheetFunction.Sum(Range("C4"), Range("C4").End(xlDown))
'选中c列并对C列有效数据求和
    Cells(Rows.Count, "d").End(xlUp).Offset(1, 0) = WorksheetFunction.Sum(Range("d4"), Range("d4").End(xlDown))
    '选中d列并对d列有效数据求和
    Cells(Rows.Count, "e").End(xlUp).Offset(1, 0) = WorksheetFunction.Sum(Range("e4"), Range("e4").End(xlDown))
    '选中d列并对e列有效数据求和
    Cells(Rows.Count, "f").End(xlUp).Offset(1, 0) = WorksheetFunction.Sum(Range("f4"), Range("f4").End(xlDown))
    '选中f列并对e列有效数据求和
    Cells(Rows.Count, "g").End(xlUp).Offset(1, 0).Select
    '选中g列并对e列有效数据求和
    Cells(Rows.Count, "g").End(xlUp).Offset(1, 0) = "=Cells(Rows.Count, "d").End(xlUp).Offset(1, 0)"/Cells(Rows.Count, "c").End(xlUp).Offset(1, 0)"
想在g列最后一个非空单元格的下一格求出，d列总和除c列总和。c列和d列总和已经在上面的代码求出了。我需要附值给常量i或t吗？

abc123281

建议上传附件

abc123281

Sub 路径统计()
'每个月路径统计方法，2019-6-18
r = Cells(Rows.Count, "c").End(xlUp).Row
Cells(r + 1, "c").Resize(1, 4).FormulaR1C1 = "=SUM(R4C:R" & r & "C)"
Cells(r + 1, "g") = Cells(r + 1, "d") / Cells(r + 1, "c")
End Sub