probeer het eens zo, wel even testen op een copy-bestand.
Sub Sorteer()
With Sheets("Data")
i = ActiveSheet.ListObjects("tblListings").ListRows.Count + 1
Sheets("Data").ListObjects("tblListings").Unlist
Range("A1:A" & i).Sort Range("A1"), 1, , , , , , 1
Range("b1:b" & i).Sort Range("b1"), 1, , , , , , 1
Range("c1:c" & i).Sort Range("c1"), 1, , , , , , 1
Range("d1:d" & i).Sort Range("d1"), 1, , , , , , 1
Range("e1:e" & i).Sort Range("e1"), 1, , , , , , 1
Range("f1:f" & i).Sort Range("f1"), 1, , , , , , 1
Range("g1:g" & i).Sort Range("g1"), 1, , , , , , 1
Range("h1:h" & i).Sort Range("h1"), 1, , , , , , 1
Range("i1:i" & i).Sort Range("i1"), 1, , , , , , 1
Range("j1:j" & i).Sort Range("j1"), 1, , , , , , 1
Range("k1:k" & i).Sort Range("k1"), 1, , , , , , 1
.Range("A1:K" & i).Select
Application.CutCopyMode = False
.ListObjects.Add(xlSrcRange, Range("$A$1:$K" & i), , xlYes).Name = _
"tblListings"
End With
End Sub