Как сохранить условное форматирование при сортировке через VBA

Question

У меня есть код, который сортирует диапазон при изменении диапазона.Он сортирует значения, но оставляет условное форматирование позади.Как сохранить условное форматирование?

Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("range2rating")) Is Nothing Then
Call deadlines1
End If
End Sub

Sub deadlines1()
Range("range2").Sort _
Key1:=Range("range2rating"), Order1:=xlDescending
End Sub