=($D6<>"")*(L6<>E6)

Sub TestSmartTable()
    ActiveSheet.ListObjects.Add(xlSrcRange, Range("B5").CurrentRegion, , xlYes).Name = "Table2"
End Sub

Option Explicit

Public Sub CheckRange()
Dim cell    As Range
Dim xRow    As Long
Dim lstRow  As Long
lstRow = WorksheetFunction.Max(6, Range("B" & Rows.Count).End(xlUp).Row)
For Each cell In Range("L6:N" & lstRow)
    cell.Interior.Color = RGB(146, 208, 80)
    If Cells(cell.Row, "D") <> "" Then
        Select Case cell.Column
        Case Is = 12    '*  L
            If Cells(cell.Row, "L") <> Cells(cell.Row, "E") Then cell.Interior.Color = RGB(255, 102, 204)
        Case Is = 13    '*  M
            If Cells(cell.Row, "M") <> Cells(cell.Row, "F") Then cell.Interior.Color = RGB(255, 102, 204)
        Case Is = 14    '*  N
            If Cells(cell.Row, "N") <> Cells(cell.Row, "G") Then cell.Interior.Color = RGB(255, 102, 204)
        End Select
    End If
Next cell
End Sub

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
CheckRange
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Intersect(Target, Range("Таблица1[[new Data1]:[new Data4]]")) Is Nothing Then Exit Sub
Target.Interior.ColorIndex = IIf(Target.Value = Target(1, -6).Value, 43, 7)
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim dd_ As Range, d_ As Range
    r1_ = Range("D" & Rows.Count).End(xlUp).Row
    If r1_ < 6 Then Exit Sub
    Set dd_ = Intersect(Target, Range("E6:G" & r1_ & ":L6:L" & r1_))
    If Not dd_ Is Nothing Then
        Application.ScreenUpdating = 0
        tsv0_ = RGB(146, 208, 80)
        tsv1_ = RGB(255, 102, 204)
        sm_ = 7
        For Each d_ In dd_
            of_ = sm_ + 2 * sm_ * (d_.Column > 11)
            ofkr_ = -of_ * (of_ > 0)
            d_.Offset(, ofkr_).Interior.Color = tsv0_
            If d_ <> d_.Offset(, of_) Then
                d_.Offset(, ofkr_).Interior.Color = tsv1_
            End If
        Next d_
    End If
End Sub

If d_.Column > 7 And d_.Column < 11 Then Exit Sub

ofkr_ = -of_ * (of_ > 0)

Set dd_ = Intersect(Target, Range("E6:G" & r1_ & ":L6:N" & r1_))

    Set dd_ = Intersect(Target, Range("E6:G" & r1_ & ",L6:N" & r1_))

Option Explicit

Sub test()

    Dim ListObj As ListObject
    
    On Error Resume Next
    Set ListObj = ActiveSheet.ListObjects("MyData")
    On Error GoTo 0
    
    If ListObj Is Nothing Then
        Set ListObj = ActiveSheet.ListObjects.Add(xlSrcRange, Range([B5].End(xlDown), [B5].End(xlToRight)), , xlYes)
        ListObj.Name = "MyData"
        ActiveSheet.ListObjects("MyData").Range.EntireColumn.ColumnWidth = 8.13
        ActiveSheet.ListObjects("MyData").TableStyle = ""
    Else: ActiveSheet.ListObjects("MyData").Unlist
    End If

End Sub

ActiveSheet.ListObjects("MyData").Range.EntireColumn.ColumnWidth = 8.13

If Intersect(Target, Range("Таблица1[[new Data1]:[new Data4]]")) Is Nothing Then Exit Sub

If Intersect(Target, Range("B5").CurrentRegion.Columns(11).Resize(, 3)) Is Nothing Then Exit Sub

    Public UpDateFlag As Boolean
    Private Sub Worksheet_Change(ByVal Target As Range)
    Dim dd_ As Range, d_ As Range
    ad_ = Selection.Address
    r1_ = Range("D" & Rows.Count).End(xlUp).Row
    If r1_ < 6 Then Exit Sub
    Set dd_ = Intersect(Target, Range("E6:G" & r1_ & ":L6:N" & r1_))
    If Not dd_ Is Nothing Then
        Application.ScreenUpdating = 0
        tsv0_ = RGB(146, 208, 80)
        tsv1_ = RGB(255, 102, 204)
        sm_ = 7
        For Each d_ In dd_
            of_ = sm_ + 2 * sm_ * (d_.Column > 11)
            If d_.Column > 7 And d_.Column < 11 Then Exit Sub
            ofkr_ = -of_ * (of_ > 0)
'            d_.Offset(, ofkr_).Interior.Color = tsv0_
            If d_ <> d_.Offset(, of_) Then
                d_.Offset(, ofkr_).Interior.Color = tsv1_
            End If
        Next d_
    End If
If UpDateFlag = True Then Exit Sub
    Range("L6:N" & r1_).Copy
    Range("L6:N" & r1_).PasteSpecial (xlPasteValues)
    Application.CutCopyMode = 0
    Range(ad_).Select
UpDateFlag = True
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B5").CurrentRegion.Columns(11).Resize(, 3)) Is Nothing Then Exit Sub
Dim r As Range
For Each r In Target.Cells
    Select Case r.Column
        Case 12, 13, 14    ' 12, 13, 14 means columns L, M, N
            r.Interior.ColorIndex = IIf(r.Value = r(1, -6).Value, 43, 7)
    End Select
Next r
End Sub

Private Sub Workbook_Open()
    With Worksheet____1
        r1_ = .Range("D" & Rows.Count).End(xlUp).Row
        .Range("L6:N" & r1_).Copy .Range("L6:N" & r1_)
    End With
End Sub