VBA：工作表中的循环SUMIF公式（运行时错误13）

Question

我的工作表：

我正在尝试将SUMIF公式插入到我的工作表中。 我所拥有的是一个工作表，其中包含3个具有相同标题的表格（周，印象数，点击次数），我想总结来自所有3个表格的'印象'和'点击'的'周'。所有'周'数据对于3个表都是相同的。

因此，我正在尝试输入一个SUMIF公式，其中条件= Week，而总结的范围是'Impressions'和'Clicks'。

我运行了下面的代码和运行时错误13：

  

类型不匹配

在第k = ws.Range("B8")行弹出。

我跑了2个循环，因为'周'也发生了变化，但我不确定什么是更好的方法。

我的代码

Dim ws As Worksheet
Dim wb As Workbook
Dim LastRow As Long
Dim ans As Date
Dim j As Long
Dim jj As Long
Dim k As Date
Dim kk As Date

Set ws = wb.Sheets("Formula")
LastRow = ws.Range("H:H").Find("*", SearchDirection:=xlPrevious).Row
k = ws.Range("B8")

For k = k To LastRow
    ans = k + 1
    kk = kk + 1
Next k

jj = 8
For j = 5 To LastRow
    ws.Range("C" & jj) = Application.SumIf(Range("H5:L100"), """*" & ws.Range("B8") & "*""", Range("I1:I100"))
    ws.Range("D" & jj) = Application.SumIf(Range("H5:L100"), """*" & ws.Range("B8") & "*""", Range("I1:I100"))

    jj = jj + 1
Next j