Shade all Blank rows in Range

[mdmackillop]

Sub MarkRows()
    Dim cel as Range
    With ActiveSheet
        For Each cel In Intersect(.Columns(1), .UsedRange).SpecialCells(xlCellTypeBlanks)
            If Application.WorksheetFunction.CountBlank(cel.EntireRow) = 256 Then
                cel.EntireRow.Interior.ColorIndex = 6
            End If
        Next
    End With
End Sub