SystemOpen@Export["g.xls",Table[{n,p1,p2/.FindRoot[{n((1.60856*0.73331*p1^(1/1.44247))/(1+0.73331*p1^(1/1.44247))+(1.60856*0.73325*p1^(1/1.44239))/(1+0.73325*p1^(1/1.44239)))((2.09702*0.07621*p2^(1/1.43739))/(1+0.07621*p2^(1/1.43739))+(2.11532*5.11472*p2^(1/1.07083))/(1+5.11472*p2^(1/1.07083)))h},{{n,h},{p1,0},{p2,0}}]},{h,0,3.2,3.2/20}]]
FindRoot::lstol:The line search decreased the step size to within tolerance specified by AccuracyGoal and PrecisionGoal but was unable to find a sufficient decrease in the merit function. You may need more than MachinePrecision digits of working precision to meet these tolerances.