Pessoal, boa tarde!
Seguinte, estou elaborando uma planilha para jogar na Lotofácil (não irei comercializá-la) e, apesar de ter um bom conhecimento em excel, não sei quase de nada de VBA. Por isso, gostaria da ajuda dos senhores para ajustar o código abaixo.

Esse código funciona como se fosse uma fórmula comum no excel, onde ele retorna os números faltantes na sequencia de 1 a 25, com uma virgula entre os mesmo. Ocorre que eu gostaria que o código retornasse um número por célula. Ou seja, ao invés de retornar assim 1, 2, 3, 4, 5 ele retornasse em cada célula um número 01 02 03 04 05. Alguém saberia como ajustar esse código? Obrigado!

Function MissingNumbers(Rng As Range) As String
Dim X As Long, MaxNum As Long
MaxNum = WorksheetFunction.Max(Rng)
ReDim Nums(1 To MaxNum)
For X = 1 To MaxNum
If Rng.Find(X, LookAt:=xlWhole) Is Nothing Then
MissingNumbers = MissingNumbers & ", " & X
End If
Next
MissingNumbers = Mid(MissingNumbers, 3)
End Function