Ak to chceš vložiť ako dátum, tak stačí, keď ako hodnotu bunky nastavíš priamo výsledok funkcie DateSerial:
Range("A31").Value = DateSerial(Range("C31"), Range("D31"), Range("E31"))
Formátovanie bunky s dátumom si väčšinou stačí nastaviť ručne, ale ak ho chceš nastavovať vo VBA, tak takto:Range("A31").NumberFormat = "d/mm/yyyy"