Hej Pepe,
Problemet uppstår för att du har koden i ett arbetsblad.
Det är rekommenderat, eller "Best Practices", att alltid lägga all kod i en separat kodmodul och inte direkt i arbetsboksbladen.
Eftersom du verkar ha koden i Blad2 ("Bedömning") men "Tabell9" återfinns i Blad1 ("Listor") så måste du använda det fullständiga namnet nar du använder metoden "Range" enligt nedan.
ActiveWorkbook.Worksheets("Listor").ListObjects("Tabell9").Sort.SortFields. _
Add2 Key:=Blad1.Range("Tabell9[[#ALL],[ALLA]]"), SortOn:=xlSortOnValues, Order _
:=xlAscending, DataOption:=xlSortNormal