Boa tarde.

Com o código abaixo o valor da Célula G5 fica com o formato da data corretamente, porém o formato da célula fica como TEXTO

Sub Data()
    i = Format(Now, "DD/MM/YYYY")
    Range("G5").Select
    ActiveCell.FormulaR1C1 = i
End Sub

Tem como inserir os dados como se fosse número ?