hH={0,2,4,6,8,10,20,40,60,80,100,140,180,220,260,300,400,500,600,700};(*Altitude*)
dD={1.23*10^(-3),1.01*10^(-3),8.19*10^(-4),6.6*10^(-4),5.26*10^(-4),4.14*10^(-4),8.89*10^(-5),4*10^(-6),3.06*10^(-7),2*10^(-8),4.97*10^(-10),3.39*10^(-12),5.86*10^(-13),1.99*10^(-13),8.04*10^(-14),3.59*10^(-14),6.5*10^(-15),1.58*10^(-15),4.64*10^(-16),1.54*10^(-16)};(*Density*)
yrho=Transpose[{hH,dD}];
g1=ListPlot[yrho,PlotStyle->{Red,PointSize[0.02]},PlotRange->All];
f=Fit[yrho,{Exp[-h/8.4]},h]
g2=Plot[f,{h,hH[[1]],Last[hH]},PlotStyle->{Blue,PointSize[0.02]},PlotRange->All];
Show[{g1,g2}]