data = {{4.4077, 8.41282/10^7},
{9.39964, 3.3636/10^6},
{14.3781, 7.56237/10^6},
{19.3462, 0.00001343},
{24.3073, 0.0000209557}};
bb = {0,10,20,30,40}; (* bin boundaries *)
(* This gives the count and total probability for each bin. *)
Flatten[Map[If[# == {}, {0,0}, {Length@#,Tr@#[[All,2]]} ]&,
BinLists[data, {bb}, {{-Infinity,Infinity}}], {2}], 1]
{{2, 4.20488*10^-6},
{2, 0.0000209924},
{1, 0.0000209557},
{0, 0}}