Answer by Rolf Mertig for Is there a version of Together that doesn't cancel common factors?

There is a simple Combine function , which in essence is just:

Combine[x_] :=  Module[{combinet1, combinet2},   combinet2 = Together[ x /. Plus -> (                If[ FreeQ[{##}, _^_?Negative] &&                     FreeQ[{##}, Rational],                     combinet1[##], Plus[##] ] &)                   ] /. combinet1 -> Plus]

Then your expression gets simplified like this:

Image may be NSFW.
Clik here to view.