Rank and Lookupvalue

Ok, I think this is one of the craziest formulas I have ever written.  Use at your own risk

VOL Sales based on VAL rank := 
var valr = rankx(all(Products[Product]),CALCULATE(sum(Products[Value Sales])))
var v = ADDCOLUMNS(ALL(Products[Product]),"sales",var p = Products[Product] return calculate(sum(Products[Volume Sales]),all(Products),Products[Product]=p))
var v2 = ADDCOLUMNS(v,"volr",var s=[sales] return CALCULATE(RANK.EQ(s,Products[Volume Sales]),all(Products)))
return CONCATENATEX(filter(v2,[volr]=valr),format([sales],"#"),"")

DAXformatter.com treatment :

VOL Sales based on VAL rank =
VAR valr =
    RANKX ( ALL ( Products[Product] ), CALCULATE ( SUM ( Products[Value Sales] ) ) )
VAR v =
    ADDCOLUMNS (
        ALL ( Products[Product] ),
        "sales",
            VAR p = Products[Product]
            RETURN
                CALCULATE (
                    SUM ( Products[Volume Sales] ),
                    ALL ( Products ),
                    Products[Product] = p
                )
    )
VAR v2 =
    ADDCOLUMNS (
        v,
        "volr",
            VAR s = [sales]
            RETURN
                CALCULATE ( RANK.EQ ( s, Products[Volume Sales] ), ALL ( Products ) )
    )
RETURN
    CONCATENATEX ( FILTER ( v2, [volr] = valr ), FORMAT ( [sales], "#" ), "" )

I leave the Totals as an exercise for you...