VBAでセルに入っている文字をカウントしていますが、問題に直面しています。

Dim cnt As Long
Dim i As Long
Dim lastRow As Long

For i = 1 to 20 step 2
lastRow = Cells(65536, i).End(xlUP).Row

   cnt = WorksheetFunction.CountIf(ActiveSheet.Range(Cells(10, i),Cells(lastRow, i), "お世話になっております")

cnt = cnt + cnt
Next

Excelのセルを1列ずつ飛ばして列に「お世話になっております」が含まれたら件数をカウントしています。
そのカウント数が何故かリセットされてしまいます。
カウント数を足していきたいのですが・・・考え方自体が違うのでしょうか？

ActiveSheet.Range(Cells(10, i),Cells(lastRow, i)

の部分、閉じ括弧が足りないように思いますが・
例：

ActiveSheet.Range(Cells(10, i),Cells(lastRow, i))

cnt = WorksheetFunction（以下略）で、ループの度にcntに代入していますのでリセットされます。

また、cnt = cnt + cnt は、cntにcntの２倍を代入していますが、これは何でしょうか？

回答としては、
２行で組んである、
cnt = WorksheetFunction.CountIf(ActiveSheet.Range(Cells(10, i),Cells(lastRow, i), "お世話になっております")
cnt = cnt + cnt
を以下の１行でコーディングすればどうでしょうか？？？

cnt = cnt + WorksheetFunction.CountIf(ActiveSheet.Range(Cells(10, i), Cells(lastRow, i)), "お世話になっております")
で、どうでしょう？