plotting – Making table of derivative of Bessel function based integral

     Please suggest how to plot given below intergarl:
   (Gamma)1 = 30*10^-3; (Rho) = 1*10^3; g = 9.8; A0 = 10^9; c = 
   3*10^8; n1 = 1; n2 = 1.33;
   P(we_) := 
   ((4*4)/(c*Pi*we^2))*(n1)*((n2 - n1)/(n2 + n1)); u1 = (Gamma)1*
   k^2 + (Rho)*g;
   h(r_, we_) := A0*P(we)*we^2/4*Exp(-(we^2*k^2)/8)*k*BesselJ(0, (r)*k)/u1
   CR2 = Evaluate(D(h(r, we), {r, 2}))
  (Kappa)R(r_?NumericQ, we_?NumericQ) := 
   Quiet(NIntegrate(CR2, {k, 0, (Infinity)}))
   Plot(Evaluate@
  Table((Kappa)R(r, we), {we, 30*10^-6, 80*10^-6, 
   50*10^-6}), {r, -0.0005, .0005}, PlotStyle -> Automatic, 
  Frame -> True, PlotRange -> All)