Используйте Worksheet Calculate для автоматической сортировки значений, полученных по формуле

Question

Я хочу отсортировать строки автоматически на основе значений в столбце C, которые получены из формулы и будут изменены. Пока что у меня есть:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Application.Intersect(Range("C140:C143"), Range (Target.Address)) Is Nothing Then
        Call Test

    End If

End Sub

Sub Test()
    On Error Resume Next
    If Not Intersect(Target, Range("C140:C143")) Is Nothing Then
        Range("A140:I143").Sort Key1:=Range("C140:C143"), _
        Order1:=xlAscending, Header:=xlNo, _
        OrderCustom:=1, MatchCase:=False, _
        Orientation:=xlTopToBottom
    End If
End Sub

Это хорошо работает для автоматической сортировки значений, когда эти значения вводятся вручную. Как я могу преобразовать это в Расчет листа, чтобы учесть значения, полученные из формул?