Sorting by Alpha, Adding Subtotal - then removing subtotal - variable data sets

I am trying to build a macro that will add subtotals, sort then remove the subtotals - on variable data set lengths - I have the attached - but when I add it into a larger macro, it fails;

The part that fails is the sort while the subtotals are on

I think I need to define a region - or something - but really no idea how to! So far just build by recording and adding on