>>917
C列に入ってるのが文字列じゃなくて数式だと「型が一致しません」になることがある
これ試してみて
If Cells(r, "C").Text <> "集計" Then