Seja bem vindo ao Planilhando, @matteus0203!

Não seria nem necessário criar código VBA se a finalidade for só separar essas informações. Dá pra fazer de uma forma bem simples:

• Selecione a célula;
• Na guia Dados, grupo Ferramentas de Dados, clique em Texto para Colunas;
• Na janela do Assistente para conversão de texto em colunas, escolha Delimitado e Avançar;
• Em Delimitadores, marque Outros e na caixa ao lado dê um CTRL + J;
• Clique em Concluir.
• Se quiser ao invés de todas em colunas passar para uma em cada linha:
  • Selecione;
  • Copie;
  • Clique numa célula vazia onde ficarão os dados;
  • Botão direito > Colar Especial > Transpor

Obrigado pela resposta @edsonbr!
Necessita sim que seja uma VBA, pois quero inserir esta solução em uma macro maior com uma rotina a fim de formatar uma planilha de dados excessivamente extensa.

Poderia tentar me ajudar? Pois sei produzir macros, mas ainda não aprendi editar e retirar informações de uma célula.

Ok.

De uma forma simpliflicada:

Sub ExplodeCadeia()
  Dim var As Variant
  var = Split(Replace(ActiveCell.Value, ",", "."), vbLf)
  ActiveCell.Resize(UBound(var) + 1).Value = Application.Transpose(var)
End Sub
 

@edsonbrFuncionou muito bem! Obrigado!