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