Удаление строк

[aks_sv]

Приведенный код удаляет строки, в которых данные столбца В записаны жирным шрифтом. Как удалить еще три строки расположенные ниже?

Код: Выделить всё

Sub DeleteBold()
Dim LastRow As Long, r As Long
LastRow = Range("B65536").End(xlUp).Row - 1
    For r = LastRow To 1 Step -1
        If Cells(r, 2).Font.Bold = True Then Rows(r).Delete
    Next r
End Sub

[Aent]

Ниже каждой строки, содержащей в столбце B данные, набранные жирным шрифтом ?

Код: Выделить всё

....
If  Cells(r,2).Font.Bold then Cells(r,2).Resize(4,1).EntireRow.Delete
....

[aks_sv]

Спасибо, посмотрю