I have two tables on the same excel sheet.  

The first table is named Cabinet, and its range is $A$12:$AN$29  

The second table is named LaminatedBench, and its range is $A$33:$AN$50

For the table "Cabinet":

I am trying to:  

When A12 is cleared/changed, clear cells: B12, C12, D12 & H12.  

When B12 is cleared/changed, clear cells: C12, D12 & H12.  

When C12 is cleared/changed, clear cells: D12 & H12.

Similarly:  

When A13 is cleared/changed, clear cells: B13, C13, D13 & H13.  

When B13 is cleared/changed, clear cells: C13, D13 & H13.  

When C13 is cleared/changed, clear cells: D13 & H13.  

& This applies to all the rows from Row12 to Row29.

For the table "LaminatedBench":

I am trying to:
When A33 is cleared/changed, clear cells: B33, C33, D33, E33, F33, G33, H33 & L33.  

When B33 is cleared/changed, clear cells: C33, D33, E33, F33, G33, H33 & L33.  

When C33 is cleared/changed, clear cells: D33, E33, F33, G33, H33 & L33.  

When D33 is cleared/changed, clear cells: E33, F33, G33, H33 & L33.  

When E33 is cleared/changed, clear cells: F33, G33, H33 & L33.  

When F33 is cleared/changed, clear cell: G33, H33 & L33.  

When F33 is cleared/changed, clear cell: H33 & L33.  

& This applies to all the rows from Row33 to Row50.

I am using the below code for table 1 for the first row. I will be adding many more tables and would have to write several lines of codes for each row.

How do I adjust it without adding a line of code of each row?

```
Private Sub Worksheet_Change(ByVal Target As Range)
End If
If Not Intersect(Target, Range("$A12")) Is Nothing Then
    Range("B12:D29").ClearContents
    Range("H12:H29").ClearContents
End If
If Not Intersect(Target, Range("$B12")) Is Nothing Then
    Range("C12:C29").ClearContents
    Range("H12:H29").ClearContents
End If
If Not Intersect(Target, Range("$A33")) Is Nothing Then
    Range("B33:H50").ClearContents
    Range("L33:L50").ClearContents
End If
If Not Intersect(Target, Range("$B33")) Is Nothing Then
    Range("C33:H50").ClearContents
    Range("L33:L50").ClearContents
End If
If Not Intersect(Target, Range("$C33")) Is Nothing Then
    Range("D33:H50").ClearContents
    Range("L33:L50").ClearContents
End If
If Not Intersect(Target, Range("$D33")) Is Nothing Then
    Range("E33:H33").ClearContents
    Range("L33:L50").ClearContents
End If
If Not Intersect(Target, Range("$E33")) Is Nothing Then
    Range("F33:H50").ClearContents
    Range("L33:L50").ClearContents
End If
If Not Intersect(Target, Range("$F33")) Is Nothing Then
    Range("G33:H50").ClearContents
    Range("L33:L50").ClearContents
If Not Intersect(Target, Range("$G33")) Is Nothing Then
    Range("H33:H50").ClearContents
    Range("L33:L50").ClearContents
End If
End If
End Sub

```