Sub Test()
  Dim rg1, rg2, intrsct$
  Set rg1 = [b2:g10]: Set rg2 = [e6:i14]
  rg1.Interior.Color = #00ffff: rg2.Interior.Color = #ffff00
  intrsct = Intersect(rg1, rg2).Address(0, 0): Stop
  Range(BaseModOut(rg1.Address(0, 0), intrsct)).Interior.Color = 255
  Range(BaseModOut(rg2.Address(0, 0), intrsct)).Interior.Color = #0000ff
End Sub

Function BaseModOut(BaseAdr As String, OutAdr As String) As String
  Dim SU As Boolean, DA As Boolean, EE As Boolean, CM As Long
  With Application
    SU = .ScreenUpdating: .ScreenUpdating = False: CM = .Calculation
    .Calculation = xlCalculationManual: DA = .DisplayAlerts: .DisplayAlerts = False
    EE = .EnableEvents: .EnableEvents = False:  Worksheets.Add: Range(OutAdr) = 1
    Cells(Rows.Count, .Columns.Count) = 1: If WorksheetFunction.CountBlank(Range(BaseAdr)) > 0 _
    Then BaseModOut = Range(BaseAdr).SpecialCells(xlCellTypeBlanks).Address
    ActiveSheet.Delete: .ScreenUpdating = SU: .DisplayAlerts = DA: .EnableEvents = EE: .Calculation = CM
  End With
End Function

Function NONOVERLAPPING(R1 As Range, R2 As Range) As Range
Application.ScreenUpdating = False
For Each CELL In Union(R1, R2)
If Intersect(CELL, R1, R2) Is Nothing Then
CELL.AddComment
End If
Next
Set NONOVERLAPPING = Union(R1, R2).SpecialCells(xlCellTypeComments)
NONOVERLAPPING.ClearComments
Application.ScreenUpdating = True
End Function

Function NONOVERLAPPING1(R1 As Range, R2 As Range) As Range
Application.ScreenUpdating = False
Union(R1, R2).FormatConditions.Add xlExpression, , "=1"
Intersect(R1, R2).FormatConditions.Delete
Set NONOVERLAPPING1 = Union(R1, R2).SpecialCells(xlCellTypeAllFormatConditions)
NONOVERLAPPING1.FormatConditions.Delete
Application.ScreenUpdating = True
End Function

=ИЛИ(СТРОКА(ДВССЫЛ($G$1))+СТОЛБЕЦ(ДВССЫЛ($G$1))%=СТРОКА(A1)+СТОЛБЕЦ(A1)%)+ИЛИ(СТРОКА(ДВССЫЛ($G$2))+СТОЛБЕЦ(ДВССЫЛ($G$2))%=СТРОКА(A1)+СТОЛБЕЦ(A1)%)=1