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?