Crie um UDF que tenha o mesmo comportamento e retorne uma string com o percentual colado no final:
Function Ratio(ByVal val1 As Range, ByVal val2 As Range) As String
rat = (val1 - val2) / val2
rat = rat * 100
Ratio = Format(rat, "Fixed") & "%"
End Function