Qual planilha?

Disponibilize com alguns dados

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