CaliperPlot :=  ListPlot[ {CurvaCalipper, CurvaBs}, 
      FrameStyle -> Gray,   FrameLabel -> "CaliperPlot", PlotStyle -> {Red, Black}, 
      DataRange -> {7, 10}, PlotStyle -> PointSize[.001],   
      PlotRange -> {{7, 10}, {-6000, -5300}}, AxesOrigin -> {7, -5300}, 
      Ticks -> {Automatic,  Function[{mn, mx},   Table[{i, -i, {0.02, 0}}, {i, N@FindDivisions[{mn, mx}, 20]}]]},   
      AspectRatio -> 5/1,
      Joined -> True, ImageSize -> Large, AxesLabel -> {"inch", "Mts"}, 
      Filling -> Axis, FillingStyle -> {Orange}]

the CurvaCalipper and CurvaBs Coming from "CVS", the problem when I'm trying to fill the area there is not working.

regards