frei nach https://docs.microsoft.com/de-de/office/vba/api/excel.sortfields.add2
Range(Tablename & "[[#All],[systemdate]]")
wenns damit nicht funktioniert hast du ein anderes Problem. ä
gruß
rb