ClearAll[f]
    f = Transpose @ Delete[Position[#[[5]], 0]] @ Transpose @ # &;

***Example:***

    SeedRandom[1234]
    table = RandomInteger[5, {9, 10}];
    MatrixForm[table]
[![enter image description here][1]][1]

    table2 = f@table;
    MatrixForm[table2]
[![enter image description here][2]][2]


  [1]: https://i.sstatic.net/mpRQ2.png
  [2]: https://i.sstatic.net/TwLpc.png