VBA不计算列中的单词

Question

我是VBA的新手，我想制作一个代码，从一张纸上计算一些值，然后将结果写入另一张。它计算sh表中的多个列，并且每个结果值应写在另一个表中的单独列中。代码适用于前2个值，但是第三个值有时会给我正确的结果，但大多数时候它只返回0，就像它根本不计算列一样。这是我的代码：

Function counter()
    Dim sh As Worksheet
    Set sh = ThisWorkbook.Sheets("some_sheet")

    Dim k As Long
    Dim l As Long

    k = sh.Range("A1048576").End(xlUp).Row
    h = k - 1
    l = Application.WorksheetFunction.CountIf(Range("C1:C"&h), "Word")

    Sheets("other_sheet").Cells(1, 1) = sh.Name
    Sheets("other_sheet").Cells(1, 2) = h
    Sheets("other_sheet").Cells(1, 3) = l

End Function