Problem beim Sortieren

Private Sub Worksheet_Calculate()
Application.EnableEvents = False
Range("A7:U36").Sort Key1:=Range("A7"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Application.EnableEvents = True
End Sub

der sortiert mir mit dieser Formel die Tabelle korrekt bis auf die beiden Spalten, die ihre Daten durch folgende Formel bekommen. Denn diese bleiben in der alten Reienfolge stehen.
{=(WENN(ZÄHLENWENN(TLN!$F$6:$F$150;RECHTS('D w'!$A$3;LÄNGE('D w'!$A$3)-13)
) da ich von vba und soweiter keine ahnung habe hoffe ich, das mir jemand sag kann was falsch ist udn wie es richtig geht.
Vielen Dank schon einmal im Vorfeld.
Gruß
Daniel