xlsfile   = 'output\strandbreedtes_totaal.xls';
tabsmerge = 1:14;
xlsrange  = 'A2:AU1000';
tabwrite  = 'totaal';
data      = [];
for t = tabsmerge
    data2 = xlsread(xlsfile,tabsmerge(t),xlsrange);
    sb    = data2(:,2:end);
    tot   = nansum(sb,2);
    data2(tot==0,:) = [];
    data  = [data;data2];
end
xlswrite(xlsfile,data,tabwrite,'A2');