Question: Can't figure out how to write a loop into excel without overwriting

Here is my code, I know I am just missing something in the Export (last line) command to make it write the next iteration to a new cell, but nothing I am trying has worked. 

restart:
with(LinearAlgebra):with(plots):with(ExcelTools):

for N from 25 by 5 to 50 do
for b from 0.01 by 0.01 to 0.25 do
for h from 0.02 by 0.02 to 0.2 do
for h1 from 0.015 by 0.005 to 0.1 do
  A1:=proc(N::posint,b1,e1,h0,h11,h21) local M;
      M:=Matrix(N,(i,j)->if i=j then e elif abs(i-j)=1 then h else 0 fi);
      M[1,2]:=h1;M[2,1]:=h1;M[N,N-1]:=h2;M[N-1,N]:=h2;M[N,N]:=e-b;M
  end proc:
  B1:=A1(N,e,b,h,h1,h2):
  p2:=Eigenvectors(B1,output='list'):
  for i from 1 by 1 to N do en1[i]:=Re(p2[i][1]); od:
  for j from 1 by 1 to N do
    for i from 1 by 1 to N do
      tt[i][j]:=Re(p2[i][3][1][j]);
      if abs(tt[i][j])>n then t3:=i ; fi;
      if abs(tt[i][j])>n then t4:=j ; fi; od: od:
  energ:=Re(p2[t3][1]):
  occ:=Re(p2[t3][3][1][t4]):
  dat:=Array([N,b,h,h1,h2,t3,energ,occ]):
  Export(dat,"C:/users/herpderp/desktop/derplerp.xls"):
od: od: od: od: