Transpose[{Flatten@data[[All, 2]]}][[All, 1, 2]] // Total
thank you very much. That helped! :)
(*data={{588.833, {a55 -> 0., a144.....*) Total@Flatten@data[[All, 2]] /. (Rule[x_, y_] :> y) (* 6.333*)
