Solved!
This is the improved and corrected code:
regionA = ImplicitRegion[36 Exp[2 x] - y^2 >= z^2, {x, y, z}]
GA = RegionPlot3D[regionA, BoxRatios -> Automatic,
PlotRange -> {-5, 5}, AxesOrigin -> {0, 0, 0}, Axes -> True,
Boxed -> False]
regionB = ImplicitRegion[(5 - x)^2 - y^2 >= z^2, {x, y, z}]
GB = RegionPlot3D[regionB, BoxRatios -> Automatic,
PlotRange -> {-5, 5}, AxesOrigin -> {0, 0, 0}, Axes -> True,
Boxed -> False]
reg = RegionPlot3D[RegionDifference[regionA, regionB],
BoxRatios -> Automatic, PlotRange -> {-5, 5},
AxesOrigin -> {0, 0, 0}, Axes -> True, Boxed -> False]
Regards
Stefan