Se quiser experimentar uma solução que utiliza macro
Instale o código abaixo em um módulo comum, assim:
1. copie o código daqui
2. a partir da planilha em que estão os dados tecle 'Alt+F11' para acessar o editor de VBA
3. no menu do editor >> Inserir >> Módulo
4. cole o código na janela em branco que vai se abrir
5. feito! 'Alt+Q' para retornar para a planilha e testar

para rodar o código:
6. tecle 'Alt+F8' >> selecione a macro correspondente >> Executar, ou insira um botão na planilha e vincule-o à macro ou vincule-a a um atalho de teclado (Alt+F8 > Opções).

Sub TransCod()
 Dim d As Range, k As Long, Cx As Variant, m As Long
 k = 11
 For Each d In Range("A3:A" & Range("A3").End(4).Row)
  Cx = Split(d.Offset(, 1).Value, ",")
  m = UBound(Cx) - LBound(Cx) + 1
  Cells(k, 1).Resize(m).Value = d.Value
  Cells(k, 2).Resize(m).Value = Application.Transpose(Cx)
  Cells(k, 3).Resize(m).Value = Cx(0)
  Cells(k, 4).Resize(m).Value = d.Offset(, 2).Value
  Cells(k, 5).Resize(m).Value = d.Offset(, 3).Value
  Cells(k, 6).Resize(m).Value = d.Offset(, 4).Value
  k = k + m
 Next d
End Sub

Se quiser fazer com formulas, veja o anexo

Se quiser fazer com formulas, veja o anexo

Valeu essa macro funcionou perfeitamente!!!!