Mikec, can you attach a copy of the worksheet with both versions of the program (in separate modules if necessary)? I don't use ListObjects, but I suspect what's going on here, based on the error you report, is that Range.ListObject.Sort.SortFields.Add Key:= requires a Range object, and Range.ListObject.ListColumns(1) is some other type. But I want to step into the program to inspect the objects to be sure.

Or you can, of course. But I'm interested in learning it myself, anyway.