Auto Sort Range of Cells

[caj1980]

I have seen several posts that answer my question but I am not smart enough to tweak the code to fit my cell range. Could someone please help me write the script to put in my VBA code to auto-sort Range A9:D17 any time a value in Column D changes. Note that Column D cells are actually formulas that reference other cells in the workbook (=Sheet2!D7). Thanks![TABLE="class: grid, width: 500, align: center"]
<tbody>[TR]
[TD] [/TD]
[TD]A[/TD]
[TD]B[/TD]
[TD]C[/TD]
[TD]D [/TD]
[/TR]
[TR]
[TD]9[/TD]
[TD]Johnson[/TD]
[TD]1[/TD]
[TD]6[/TD]
[TD]486[/TD]
[/TR]
[TR]
[TD]10[/TD]
[TD]White[/TD]
[TD]5[/TD]
[TD]7[/TD]
[TD]452[/TD]
[/TR]
[TR]
[TD]11[/TD]
[TD]Peden[/TD]
[TD]8[/TD]
[TD]5[/TD]
[TD]385[/TD]
[/TR]
[TR]
[TD]12[/TD]
[TD]Shearin[/TD]
[TD]4[/TD]
[TD]4[/TD]
[TD]245[/TD]
[/TR]
[TR]
[TD]13[/TD]
[TD]Roberts[/TD]
[TD]9[/TD]
[TD]9[/TD]
[TD]132[/TD]
[/TR]
[TR]
[TD]14[/TD]
[TD]Donaldson[/TD]
[TD]3[/TD]
[TD]2[/TD]
[TD]120[/TD]
[/TR]
[TR]
[TD]15[/TD]
[TD]Rodriguez[/TD]
[TD]7[/TD]
[TD]1[/TD]
[TD]84[/TD]
[/TR]
[TR]
[TD]16[/TD]
[TD]Catalano[/TD]
[TD]4[/TD]
[TD]6[/TD]
[TD]42[/TD]
[/TR]
[TR]
[TD]17[/TD]
[TD]Butler[/TD]
[TD]8[/TD]
[TD]3[/TD]
[TD]12[/TD]
[/TR]
</tbody>[/TABLE]

 

[caj1980]

clarification: sort range A9:D17 based on values in Column D, triggered by any change to Column D

 

[caj1980]

I figured this one out on my own

 

[ZVI]

Was it this one?

' Put this code into the sheet's module
Private Sub Worksheet_Calculate()
  Range("A9:D17").Sort Range("D17"), xlAscending, Header:=xlNo
End Sub