Alex A mentions there being no cell 1504. In the OP there is no surface 1504 either, it's a line number as printed out by MCNP.
flashcflash mentions the user manual advising not to use the complement operator too much. This is correct. But the complement operator is the # sign. It indicates outside the cell it refers to. This is different from the union operator mentioned by Alex A. MCNP can make heavy going of an input that uses a lot of complement ops. Your input uses them a fair amount. Probably Vised gets confused first while MCNP is still doing OK. So let's try to fix the rest of the problem first. I'm going to guess that at this size problem the # ops are not a problem.
I read through your code only very quickly. It looks like you have cell 1300 wrong. As Alex A says, you want to be getting the outside of the various rectangular boxes, so -x1:+x2:-y1:+y2:-z1:+z2 where x1<x2, y1<y2, and z1<z2. But you still need 1300 to include being inside surface 2000. So you need this.
-2000 (-x1:+x2:-y1:+y2:-z1:+z2)
Note that it is a space between the 2000 and the rest. A space defaults to "and" where the : means "or" or union. It looks like you have this.
-2000 x1 -x2 y1 -y2 z1 -z2
Note the difference in signs and the space instead of : If the xs, ys, and zs define a rectangular box entirely inside surface 2000 then the second form is just the inside of 2000. The first form cuts the box out.
Generically your problem could benefit from some tidying. It would be handy to have all the surfaces for a given cell grouped together and numbered in sequence. It would be handy to put some comments in the surfaces indicating what cells they belong to. It would be handy to group cell and surface numbers so that the numbers for a region in your problem are in sequence. Say in the range of 1000 to 2000 for this part, 2000 to 3000 that part, and so on. It would be a big chore to get from where you are to there. And usually rewriting large parts of your code should be avoided. But the next time you make an input for MCNP you should consider it.