Boa tarde

Utilizo muito o ProcvMultiplo, porem ele me traz o retorno na mesma célula separado por ";"
Precisaria trazer em celulas distintas e se possivel ao inves da mesma celula trazer na linha de baixo
Alguem teria uma ideia?

código e

Function PROCVMÚLTIPLO(NomePesquisa As String, IntervaloPesquisa As Range, IntervaloRetorno As Range) As String
Dim Valor, Nome
Dim k As Integer
Application.Volatile
k = 1
For Each Nome In IntervaloPesquisa
If Nome = NomePesquisa Then
Valor = IntervaloRetorno(k, 1)
PROCVMÚLTIPLO = PROCVMÚLTIPLO & Valor & "; "
End If
k = k + 1
Next Nome
PROCVMÚLTIPLO = Left(PROCVMÚLTIPLO, Len(PROCVMÚLTIPLO) - 2)
End Function