УСЛОВНОЕ ФОРМАТИРОВАНИЕ МАКРОСОМ

[VITA11111]

Private Sub Worksheet_Change(ByVal Target As Range)
Dim ws As Worksheet
Clm = Target.Column
Set ws = Sheets("kn")
     If Cells(13, Clm) = Cells(ws.[L135] + 1, Clm) Then
     If Cells(10, Clm) = "БОРМ" Then
     With Range(Cells(ws.[J1] + 1, Clm), Cells(ws.[J2] - 1, Clm)).Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 15261367
        .TintAndShade = 0
        .PatternTintAndShade = 0
     End With
     With Range(Cells(ws.[J1] + 1, Clm), Cells(ws.[J2] - 1, Clm)).Font
        .ThemeColor = xlThemeColorLight1
        .TintAndShade = 0
     End With
     End If
     End If
End Sub

ЕСТЬ МАКРОС КОТОРЫЙ ВЫПОЛНЯЕТ УСЛОВНОЕ ФОРМАТИРОВАНИЕ В ДИАПАЗОНЕ ЯЧЕЕК
Range(Cells(ws.[J1] + 1, Clm), Cells(ws.[J2] - 1, Clm))

НЕЗНАЮ КАК ПРОПИСАТЬ В КОДЕ ЕЩЕ НЕСКОЛЬКО ДИАПАЗОНОВ
ЧТОБЫ УСЛОВИЕ ВЫПОЛНЯЛОСЬ В
Range(Cells(ws.[J1] + 1, Clm), Cells(ws.[J2] - 1, Clm)).
И
Range(Cells(ws.[J2] + 1, Clm), Cells(ws.[J3] - 1, Clm)).

[VITA11111]

Private Sub Worksheet_Change(ByVal Target As Range)
Dim range1 As Range, ws As Worksheet
Clm = Target.Column
Set ws = Sheets("kn")
Set range1 = Union(Range(Cells(ws.[J1] + 1, Clm), Cells(ws.[J2] - 1, Clm)), Range(Cells(ws.[J2] + 1, Clm), Cells(ws.[J3] - 1, Clm)))
     If Cells(13, Clm) = Cells(ws.[L135] + 1, Clm) Then
     If Cells(10, Clm) = "БОРМ" Then
     With range1.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 15261367
        .TintAndShade = 0
        .PatternTintAndShade = 0
     End With
     With range1.Font
        .ThemeColor = xlThemeColorLight1
        .TintAndShade = 0
     End With
     End If
     End If
End Sub

решил такой строчкой
Set range1 = Union(Range(Cells(ws.[J1] + 1, Clm), Cells(ws.[J2] - 1, Clm)), Range(Cells(ws.[J2] + 1, Clm), Cells(ws.[J3] - 1, Clm)))