Auto Sort

This should do what you want:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim LastRow As Long
    Dim ws As Worksheet
    
    Set ws = Sheets(2)
    
    LastRow = ws.UsedRange.Rows.Count
    
    With ws.Sort
        .SortFields.Clear
        .SortFields.Add Key:=Range("C8:C" & LastRow) _
        , SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
        .SetRange Range("A8:C" & LastRow)
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

You have to place the code in the module that corresponds to sheet1, check the attachment to see how.
dummyworkbook.xlsm