Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Dim sh As Worksheet, d_ As Range
    Set sh = Me.Sheets("ОСНОВНОЙ ТАБЕЛЬ (2)")
    With sh
        r0_ = 10
        c0_ = 16
        r1_ = .Range("E" & Rows.Count).End(3).Row
        nr_ = r1_ * r0_ + 1
        nc_ = 16
        .Cells(r0_, c0_).Resize(nr_, nc_).Interior.Pattern = xlNone
        For Each d_ In .Cells(r0_, c0_).Resize(nr_, nc_)
            If d_.Value <> "" Then
                If d_.Font.Color = 255 Then
                    d_.Interior.Color = 12566464
                End If
            End If
        Next d_
    End With
End Sub