сгруппировать код

[segail]

Здравствуйте.
Подскажите, можно как-то сгруппировать данный код?
То есть сделать более уплотненным.

                If .Cells(i + 35, 21) > 0 Or .Cells(i + 72, 21) > 0 _
                And .Cells(i + 109, 21) > 0 Or .Cells(i + 146, 21) > 0 _
                And .Cells(i + 183, 21) > 0 Or .Cells(i + 220, 21) > 0 _
                And .Cells(i + 257, 21) > 0 Or .Cells(i + 294, 21) > 0 _
                And .Cells(i + 331, 21) > 0 Or.Cells(i + 368, 21) > 0 _
                And .Cells(i + 405, 21) > 0 Or.Cells(i + 442, 21) > 0 Then

[doober]

Возможно этот вариант подойдет

Dim d As Boolean,d1 As Boolean
For n = 35 To 405 Step 74
d1 = CBool(.Cells(i + n, 21) > 0) + CBool(.Cells(i + n + 37, 21) > 0)
d = d * d1
Next
If d = True Then

[segail]

Полностью код выглядит так:

Public Sub Test()
    Dim i As Integer
    For i = 1 To 450
        With Sheets("Отчет")
            If Form_SelectDate.ComboBox_Month = CStr(.Cells(i, 27).Text) Or UserForm4.ComboBox1.Text = CStr(.Cells(i, 27).Text) Then
                If .Cells(i + 35, 21) > 0 Or .Cells(i + 72, 21) > 0 _
                And .Cells(i + 109, 21) > 0 Or .Cells(i + 146, 21) > 0 _
                And .Cells(i + 183, 21) > 0 Or .Cells(i + 220, 21) > 0 _
                And .Cells(i + 257, 21) > 0 Or .Cells(i + 294, 21) > 0 _
                And .Cells(i + 331, 21) > 0 Or.Cells(i + 368, 21) > 0 _
                And .Cells(i + 405, 21) > 0 Or.Cells(i + 442, 21) > 0 Then
                    MsgBox "!!!", 16, "!!!"
                End If
            End If
        End With
    Next
End Sub

переменная i основная для всего кода, переменная n не определяется…