The VBA boys should be able to put a loop in there to count the number of columns that needs to be sorted, but I'm not that clever.

i = 0
For i <= Count Number of columns with data
Sort
i++

Something like that.

I clicked the "Use Relative References" button (next to "Record Macro") to make it jump left without using hard references.