Не закрашиваются ячейки

[sernik]

Добрый день, Уважаемые форумчане.
Сравниваю 2 листа на наличие Артикулов, если нет в соседнем листе, то подкрашиваю цветом. Беда в том, что почему не подкрашиваются не объединенные ячейки. Пример в скринах во вложении, как должно быть и как получается. Что то пропускаю, не как не увижу.
Записал кусок автозаписью.

i = 13
'проверка первого листа
Do While Sheets(1).Cells(i, 2) <> "" Or Sheets(1).Cells(i + 1, 2) <> ""
    If Sheets(1).Cells(i, 2) <> "" And Sheets(1).Cells(i, 2) <> "Артикул" Then
        art = Sheets(1).Cells(i, 2)
        j = 13
        flag = False
        Do While Sheets(2).Cells(j, 2) <> "" Or Sheets(2).Cells(j + 1, 2) <> ""
            If Sheets(2).Cells(j, 2) = art Then
                flag = True
                Exit Do
            End If
            j = j + 1
        Loop
        If flag = False Then
            With Sheets(1).Range("B" & i & ":O" & i).Interior
                .Pattern = xlSolid
                .PatternColorIndex = xlAutomatic
                .ThemeColor = xlThemeColorAccent3
                .TintAndShade = 0.399975585192419
                .PatternTintAndShade = 0
            End With
        End If
    End If
    i = i + 1
Loop

Спасибо!

[alex77755]

Может просто по старинке:

        If flag = False Then
            Sheets(2).Range("B" & i & ":O" & i + 1).Interior.ColorIndex = 6
        End If

[sernik]

Спасибо, понял, что пропустил i+1
Странно, почему то, просто одной строкой не срабатывает

If flag = False Then
            Sheets(2).Range("B" & i & ":O" & i + 1).Interior.ColorIndex = 6
        End If