Sort Reference is Invalid

I'm trying to set up a Subroutine that deletes blank rows in a report, then sorts the rows by the time. I'm not sure what is going on with it, but below is the full routine:

Please Login or Register  to view this content.

The delete works fine, but the sort errors out: "Run-time error '1004': The sort reference is not valid. Make sure that it's within the data you want to sort, and the first Sort By box isn't the same or blank."

Does it matter that EndCell is empty? Every cell in timecolumn is populated with a time, correctly formatted.

I don't have any blank rows, so I can't use CurrentRegion to select the sort area. But if there's another way to write that line, I'd appreciate any info you can give.

I would really like to have your full Excel file.

Meantime, if EndCell is in a row that gets deleted you'll have an error. It would refer to a range that doesn't exist anymore. If you set a Range variable to A10, for example, then delete row 10, the reference becomes invalid; it does not refer whatever has now become the new A10.

I suggest that you set EndCell immediately before the sort.