Automated sorting with VBA in Excel

At a recent client I inherited an Excel workbook that required a tedious formatting chore before it could be updated. The data needed to be sorted by a particular column, however the data for each type needed to maintain its’ original order. This had previously been done as a manual cut and paste process.

I was able to eliminate some of the work by creating a new column with a numerical sequence. In that way I could use a two-step sort. However, this still seemed inefficient. In the end I wrote the below VBA script.