bugfix that limited the amount of routes

In the 'GetRouteColl' sub, the cells.specialcells(xllastcell).row was
used, where ...column was needed. This resulted in an error message
stating that too less routepoints where available in the route.