Ａ列に今日の日付が入っている行であれば、同じ行の"Ｂ"cnt〜"ＡＡ"cnt＋２を水色でぬりつぶす
（対象はＡ列の４行目から最終行）
と
Ｂ列に数字の１が入っている行であれば、同じ行の"Ｂ"cnt〜"ＡＡ"cnt＋２を赤色でぬりつぶす
（対象はＡ列の４行目から最終行）
というのをしたくて書いたのですが、エラーなどはなく、何も起きません
原因を教えてください。

Sub tes()

Dim cnt As Long
Dim buf As String
Dim cnt2 As Long
buf = Date

For cnt = Cells(Rows.Count, 1).End(xlUp).Row To 4 Step 2
If Cells(cnt, 1) = buf Then
Range(Cells(cnt, 3), Cells(cnt + 2, 27)).Interior.Color = RGB(173, 242, 249)
End If
Next cnt

For cnt2 = Cells(Rows.Count, 2).End(xlUp).Row To 4 Step 2
If Cells(cnt2, 2) = 1 Then
Range(Cells(cnt, 3), Cells(cnt + 2, 27)).Interior.Color = RGB(255, 0, 0)
End If
Next cnt2

End Sub