Auto sort excel table in VB

I'm trying to auto sort a table in excel. I want to have the table in "Summary" sheet automatically sort when a cell is changed in column A. I also want the numbers in the sort to be sorted last so that the text is first in the list.

I've attached the file I'm working on. I copied a macro to auto sort in VB but it does not work right. The cells in column A refers to another cell. When I change the value in the other cells the table will not sort. I also get an error message when i open the file now.

Can anyone help?

I don't know how you change the value in Protected sheet though.

To Summary sheet module

Private Sub Worksheet_Calculate()
    mySort
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    mySort
End Sub

Private Sub mySort()
    Dim ws As Worksheet
    With Application
        .ScreenUpdating = False
        .EnableEvents = False
    End With
    For Each ws In Worksheets
        If IsNumeric(ws.Name) Then
            With ws.Range("c3")
                If Right$(.Formula, 2) <> "+0" Then
                    .Formula = .Formula & "+0"
                End If
            End With
        End If
    Next
    With Me
        .Unprotect
        With .Range("a2").CurrentRegion
            .Sort key1:=.Cells(1), order1:=2, Header:=xlYes
            With .Columns(1).SpecialCells(-4123, 1).EntireRow
                .Sort key1:=.Cells(1), order1:=1, Header:=xlNo
            End With
            With .Columns(1).SpecialCells(-4123, 2).EntireRow
                .Sort key1:=.Cells(1), order1:=1, Header:=xlNo
            End With
        End With
        .Protect
    End With
    With Application
        .ScreenUpdating = True
        .EnableEvents = True
    End With
End Sub

I spoke too soon. The problem is when I change a Sheet name from a number to a Text I get the error "#value!". It looks to me the module it refers to cell "C3" as a number. So this adds a "+0" to my formula in the C3 cell.

Any suggestions?

This works perfect! Thank you.

The cell values in column A come from other sheets. This is why it's locked and protected and how the values are changed.

Try replace following part in "mySort" sub procedure

    For Each ws In Worksheets
        If IsNumeric(ws.Name) Then
            With ws.Range("c3")
                If Right$(.Formula, 2) <> "+0" Then
                    .Formula = .Formula & "+0"
                End If
            End With
        End If
    Next

with

    For Each ws In Worksheets
        With ws.Range("c3")
            If IsNumeric(.Parent.Name) Then
                If Right$(.Formula, 2) <> "+0" Then
                    .Formula = .Formula & "+0"
                End If
            Else
                If Right$(.Formula, 2) = "+0" Then
                    .Formula = Left$(.Formula, Len(.Formula) - 2)
                End If
            End If
        End With
    Next

That seems to work.

Thank you.