Veja se isso te ajuda

Abra uma nova planilha do excel, aperte ALT+F11, clique no menu inserir e depois em módulo e cole esse código

Function ARRUMARDATA(x As Long)
ARRUMARDATA = Right(x, 2) & "/" & Mid(x, 5, 2) & "/" & Left(x, 4)
End Function

salve o arquivo com o nome ARRUMADATA.xlam, feche o arquivo

Agora abra outra planilha do excel qualquer, clique em ARQUIVO>OPÇÕES>SUPLEMENTOS em gerenciar selecione "Suplementos do excel", clique em "ir"
Seleciona ARRUMARDATA e clique em OK

Pronto, você já tem a função funcionando para todas as planilhas, basta digitar

=ARRUMARDATA(REFERENCIA)
Sendo a referência a célula que está a data

Se isso te ajudou, clique no "joinha" ao lado de citar

Eu faria assim:

Function ARRUMARDATA_FF(x As Long)
ARRUMARDATA_FF= DateSerial(Left(x, 4),Mid(x, 5, 2),Right(x, 2))
End Function

E escreve na célula:

=ARRUMARDATA_FF(A1)

Desta forma o resultado já volta como data. Da forma sugerida pelo Syrax, o retorno é um texto que parece data.

Fernando

Na verdade só converti a fórmula que ele estava usando em função, a fórmula dele não foi alterada
além do mais, não sabemos se ele precisa da função apenas para uma planilha ou para qualquer planilha, por isso sugeri a criação de um suplemento

... Após ... eu copio e salvo como valores e salvo a célula como "data". ...

Ele quer data ! Mas sim, concordo, fica a critério dele escolher o que melhor atende!