Concatenate if other column value is non-blank or non-zero BUT IN DESCENDING ORDER

Hello,
In column A I have blank cells or numbers (could be zero as well)
In column B I have names, e.g. Peter, John, Mary etc

For example let's have 3, 0, "", 4, 4, 6, 0, 5, "", 1 in column A
and Peter, John, Mary, Kate, Alan, Nick, George, Jenny, Tony, Helen

I am looking for a way cell C1 will give me the names that have a non-zero or non-blank cell next to them BUT IN A DESCENDING ORDER according to the value in column B, separated by commas. That would be Nick, Jenny, Kate, Alan, Peter, Helen
Nick comes first because he has the highest value (6), Jenny comes 2nd because she has the 2nd highest value, Kate and Alan come next...and so on

If it is any help this is the function I have been using but does not deal with the DESCENDING ORDER problem. A function would be great but anything you can come up would also be great

Function ccIFblank(SrcRng As Range, ConCatrng As Range)
Dim diff As Integer
diff = (ConCatrng.Column - SrcRng.Column)
For Each c In SrcRng
If c.Value <> "" Then
ccIFblank = ccIFblank & c.Offset(, diff).Value & ", "
End If
Next
ccIFblank = Left(ccIFblank, Len(ccIFblank) - 2)
End Function

Thanks a lot