Order Data Based on Cell Value, Trigger Automatically When Cell Value Changes

Hi all,

I am trying to get a data set to automatically reorder itself when a value in a cell in a specified column is changed (in the example spreadsheet it would be column C).
This is what I have so far which works when I manually run the sub, but not when I change a value:

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("C2:C7")) Is Nothing Then

Sub SortDataWithHeader()
Range("Relabel").Sort Key1:=Range("C2"), Order1:=xlAscending

End If

End Sub

What am I doing wrong?

Many thanks in advance!