Hi Christine,
Sorry, I don't have experience with Chi-Square Test, but maybe this could help !
data=Import["C:\\Users\\Jos\\Wolfram Mathematica\\.......\\Wolfram_ChiSquare Test.xlsx", "xlsx"]
data = Take[data[[All, 2]]]
maxdata = Max[data]
mindata = Min[data]
vardata = Variance[data]
meddata = Median[data]
meandata = Mean[data]
stddata = StandardDeviation[data]
Print[Style["Demand (X)", 14, Bold, Red]]
Print["Maximum: ", maxdata]
Print["Minimum: ", mindata]
Print["Variance: ", vardata]
Print["Median: ", meddata]
meandata = N[Mean[data]];
stddata = N[StandardDeviation[data]];
modedata = Commonest[data][[1]];
Grid[{
{Labeled[meandata, "Mean: ", Left]}
, {Labeled[modedata, "Mode: ", Left]}
, {Labeled[stddata, "Standard Dev.:", Left]}
}
, Alignment -> Left]
d1 = NormalDistribution[modedata, stddata];
H = DistributionFitTest[data, d1, "HypothesisTestData"];
H["TestDataTable", All]
Good luck,.....Jos