As far as I know it is a bit tricky using indices 0 accessing Table-elements
In[22]:= tt = Table[i, {i, 0, 3}]
tt[[0]]
tt[[1]]
Out[22]= {0, 1, 2, 3}
Out[23]= List
Out[24]= 0
Moreover your notebook contains a typo (Deletecases).
Is it (see notebook attached) this what you want? But then you must take into account that H [[ 2, .... ]] refers to i1 = 1.
Attachments:
