Bom dia!!
Sua dúvida está vaga, tente detalhar melhor.
Considerando que os valores serão capturados das células e que são números.
 
Sub DuvidaVaga()
'XXXXXXAAAAMMDDNNNNNN
'XXXXXX - Registro da ANS
'AAAA -Ano
'MM -Mês
'DD -Dia
'NNNNNN - sequencial que identifique a ordem de entrada da reclamação na operadora.
    Range("A2").Value = Date
    Range("A1").Value = NumberFormat = "@"
    Range("A1").Value = Range("A3").Value & Format(Range("A2"), "YYYYMMDD") & Range("A4").Value
End Sub
Att
                                                                                                	Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
 
                    
                    	
                            Postado : 20/05/2016 8:00 am