Clear[z, 
      sig];  sig = 0.29;
T = 
        9/(4*P^2) + 9*4/(4*Q^2) + 6/R^2;
Vne = -3*(z - sig)/P - 3*z/Q - 
          3*z/R;
Vee = (2/Q)*(3 - (6/10)*(P/Q)^2) - 
          6*sig*P^2/Q^3  +  
          6*(1 - (3/20)*(P/R)^2 + (1/32)*(P/R)^3)/R + 
          6*(1 - (3/20)*(Q/R)^2 + (1/32)*(Q/R)^3)/R + 
          3/(R*Sqrt[2]);
func = T + Vne + Vee;  
    Vir  =  (Vne + Vee)/T;
  
t  =  
      Table[FindMinimum[
          func, {P, 0.2}, {Q, 1.0}, {R, 
            1.2}, {MaxIterations -> 300}], {z, 7, 
          14}]
  
Table[
      N[Vir  /.  t[[{z - 6}, 2]], 10], {z , 7, 
        14}]
  
Table[
      N[t[[{z - 6}, 1]]*27.21138, 10], {z, 7, 
        14}]