Sub CALCULOTMAX

Sub CALCULOTMAX()

' CALCULOTMAX Macro

Range("T3:AZ138").Select
Selection.ClearContents

Dim PS(135)

PS(0) = 610.5684754
PS(1) = 656.4490194
PS(2) = 705.3506656
PS(3) = 757.4428657
PS(4) =812.9027984
PS(5) = 871.915631
PS(6) = 934.6747856
PS(7) = 1001.38221
PS(8) = 1072.248654
PS(9) = 1147.493951
PS(10) = 1227.347304
PS(11) = 1312.047575
PS(12) = 1401.84358
PS(13) = 1496.994393
PS(14) =1597.769647
PS(15) = 1704.449844
PS(16) = 1817.326669
PS(17) = 1936.703309
PS(18) = 2062.894776
PS(19) = 2196.228231
PS(20) = 2337.043319
PS(21) = 2485.692499
PS(22) = 2642.541389
PS(23) =2807.969105
PS(24) = 2982.368609
PS(25) = 3166.14706
PS(26) = 3359.726167
PS(27) = 3563.542548
PS(28) = 3778.048092
PS(29) = 4003.710321
PS(30) = 4241.012758
PS(31) = 4490.455299
PS(32) = 4752.554587
PS(33) =5027.844387
PS(34) = 5316.875964
PS(35) = 5620.218471
PS(36) = 5938.459323
PS(37) = 6272.204594
PS(38) = 6622.079398
PS(39) = 6988.728284
PS(40) = 7372.815629
PS(41) = 7775.026028
PS(42) =8196.064696
PS(43) = 8636.657862
PS(44) = 9097.553169
PS(45) = 9579.520076
PS(46) = 10083.35026
PS(47) = 10609.858
PS(48) = 11159.88062
PS(49) = 11734.27886
PS(50) = 12333.93729
PS(51) = 12959.76471
PS(52) =13612.69456
PS(53) = 14293.68534
PS(54) = 15003.72097
PS(55) = 15743.81125
PS(56) = 16514.99224
PS(57) = 17304.73896
PS(58) = 18140.45087
PS(59) = 19010.24497
PS(60) = 19915.2362
PS(61) =20856.56587
PS(62) = 21835.402
PS(63) = 22852.93961
PS(64) = 23910.40106
PS(65) = 25009.03634
PS(66) = 26150.12345
PS(67) = 27334.96862
PS(68) = 28564.90668
PS(69) = 29841.30135
PS(70) = 31165.54551
PS(71) =32539.06154
PS(72) = 33963.30158
PS(73) = 35439.74783
PS(74) = 36969.91283
PS(75) = 38555.33974
PS(76) = 40197.60261
PS(77) = 41898.30667
PS(78) = 43659.08857
PS(79) = 45481.61665
PS(80) = 47367.59121PS(81) = 49318.74476
PS(82) = 51336.84223
PS(83) = 53423.68127
PS(84) = 55581.09245
PS(85) = 57810.93949
PS(86) = 60115.1195
PS(87) = 62495.56322
PS(88) = 64954.23519
PS(89) = 67493.13399
PS(90) =...