Esqueci de falar que as células selecionadas para executar a função não são fixas, ou seja, eu irei selecionar a sequência que desejo e em seguida aplicar o botão com o código. No exemplo da imagem foi do D3:D5, mas poderia ser um sequência seguida de células diferentes dentro desta mesma coluna.

Olá, @amartins.

Veja se atende.

Sub SomaMescla()
 Dim s As Double, c As Range
  For Each c In Selection
   s = s + c.Value: c.Value = ""
  Next c
  Selection.MergeCells = True
  ActiveCell.Value = s
End Sub

Osvaldo,

Funcionou perfeitamente! 😀 😀 😀 

Seria possível ao invés de colocar o resultado da soma na célula mesclada colocar a fórmula da soma?

Desta forma, se por algum motivo o valor da célula unitária for alterado, também irá alterar o valor somado.

Se entendi corretamente, não faz sentido o que você quer fazer.

Após a mesclagem das células não mais haverá célula unitária.

Por exemplo, no print que você colocou, após mesclar D3:D5, qual seria a tal célula unitária?

@osvaldomp

Olá Osvaldo,bom dia!

Agradeço a ajuda e a pronta resposta e desculpe só te retornar hoje pela manhã.

As colunas "Valor Unitário" e "Quantidade" continuarão existindo na planilha. Tomando como base a última tabela da imagem que anexei ao post, vemos por exemplo que a célula C3 contem o valor de R$ 10,00. Se por algum motivo, por exemplo, o valor desta célula mudar para R$ 20,00, o valor final da soma feita com o código de VBA se manteria com o valor de R$ 140,00 ao invés de R$ 150,00, que seria o valor correto da soma após alterar o valor da célula C3.

O mesmo problema poderia ocorrer se houvesse mudança de valores na coluna de "Quantidade".

Por este motivo, o ideal seria que na célula que será mesclada pelo VBA o dado que ela irá conter seria uma fórmula e não um valor. 

OBS: Tentei até modificar o código que você enviou, mas os meus ajustes retornaram uma fórmula não funcional, veja o anexo abaixo.

Olá, @amartins. Bom dia.

Relendo o seu primeiro post vi que lá está claro que você queria uma fórmula e não o valor. Mas imagino que a observação que você colocou no print "Os valores serão somados e as células mescladas contendo o valor da soma" foi que me desviou da rota, pois foi essa a última instrução que captei e que acabou prevalecendo. Sorry.

Veja se o código abaixo atende.

Sub FórmulaMescla()
 Dim s As String, c As Range
  For Each c In Selection
   s = IIf(s = "", c.Formula, s & Replace(c.Formula, "=", "+"))
  Next c
  Application.DisplayAlerts = False
  Selection.MergeCells = True
  ActiveCell.Formula = s
End Sub

Quanto às instruções para alinhamento, se você manualmente formatar antes a coluna Total, aí não precisará colocar as instruções no código, é uma alternativa.

Olá @osvaldomp, boa noite!
Meu amigo, não precisa se desculpar! A culpa foi minha! Rs...
Eu escrevi 02 coisas diferentes e seria normal você se confundir por isso.

O código funcionou perfeitamente! Mais uma vez, muito obrigado mesmo!

OBS: Não sei pq o meu post no fórum ficou duplicado. Você acabou respondendo neste que não tem o nosso histórico de conversa. Como minha dúvida pode ser a dúvida de outras pessoas também, vou colocar a resposta com o seu código funcionando na outra postagem também.

Devido ao fato do meu post ter ficado duplicado no fórum, estou postando abaixo a resposta do @osvaldomp que acabou sendo respondido na outra postagem duplicada.
Segue abaixo o código funcionando conforme eu havia solicitado:

Sub FórmulaMescla()
Dim s As String, c As Range
For Each c In Selection
s = IIf(s = "", c.Formula, s & Replace(c.Formula, "=", "+"))
Next c
Application.DisplayAlerts = False
Selection.MergeCells = True
ActiveCell.Formula = s
End Sub

Para resolver esse problema, você pode criar um botão de formulário no Excel e associá-lo a um código VBA que realiza as seguintes ações: obter as células selecionadas, criar uma fórmula de soma para essas células, mesclar as células selecionadas e inserir a fórmula de soma na célula mesclada. Primeiramente, pressione ALT + F11 para abrir o Editor VBA. Em seguida, clique com o botão direito em "VBAProject (seu_nome_de_arquivo.xlsm)" e escolha "Inserir" > "Módulo". Cole o código VBA fornecido abaixo no módulo. Depois, clique com o botão direito no botão de formulário que você criou e escolha "Atribuir Macro". Selecione a macro "SomaEMescla" e clique em "OK". Agora, quando você clicar no botão de formulário, as células selecionadas serão mescladas e a fórmula de soma será inserida na célula mesclada. Certifique-se de selecionar as células corretas antes de clicar no botão.