excel - 通过 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