You need to do two things:
Originally Posted by sherbetdab
1. ensure the headers of the route knowledge table in the cells J45:AU45 of ther Rota sheet need to be exactly the same as the route names in cells B3:B40. Best to copy/transpose them from one location to the other.
2. change the offending line to:
I've also had to change the Sub RemoveNumbers().
filtRng.AutoFilter Field:=Application.Match(route, Range("A45:AU45"), 0), Criteria1:="Y"
When you come to change the route numbers yourself either make sure you have run RemoveNumbers before you do so, otherwise you will have to do a one-time manual clearing of route numbers from the results area of the lower table.
Hopefully you don't have any route numbers prefixed with a zero(es).