Sorting certain ranges in a worksheet

Then I think that none of your named ranges start with "mission". If that were the case, you'd start with R = 2 and never increment it. Then there is an R = R - 1 line (so R = 1) and finally you try to resize a range to be R - 1 rows and of course you cannot have a 0 row range.