Sub Limpar()
Sheets("Plan1").Range("A1").Value = Sheets("Plan1").Range("A4").Value
Sheets("Plan1").Range("A2:A3").Value=""
End Sub

Sub soma()

Sheets("Plan1").Range("A1") = Application.WorksheetFunction.Sum(Worksheets("Plan1").Range("A2:A3"))
Sheets("Plan1").Range("A2") = ""
Sheets("Plan1").Range("A3") = ""
'esta macro soma e transfere para a celula a1 não tem
'necessidade de colocar o valor na celula a4 já que vai ficar na a1
End Sub

Assim acho que fica mais fácil de entender
https://www.dropbox.com/s/cynegnplj0hhe ... o.jpg?dl=0

quer ser ajudado, não sabe fazer ou usar as indicações de outros e precisa de algo exato
poste uma planilha de exemplo com exatidão de posicionamento e tipos de valores e um exemplo manual de como vc espera que fique
a pior coisa é ficar fazendo tentativas falidas pq a pessoa que quer ajuda não colabora com ela mesmo

Vc testou as soluções apresentadas ?
Parece que nao !!

Segue a planilha
Testei deu erro !
https://www.dropbox.com/s/nclio3qdpqnu2 ... o.xls?dl=0

vc reparou o seu pedido e a sua planilha o quanto são diferentes ?
e sinceramente acho que está faltando dar detalhes sobre oq vc quer
é uma linha apenas ou em mais de uma os valores vão ser alterados ?

não vi logica alguma, seria mais facil colocar logo a formula em A1
poste uma planilha com mais dados e com um exemplo de como vc espera que fique
e por favor poste aqui no forum mesmo, nem todos tem acesso a drives virtuais

Lembre se que as respostas são passadas com base em informações que quem solicita ajuda apresenta.

Para anexar no forum basta usar o Editor completo.

1) Todos tem acesso, pois não é privado e sim público
2) Pediram para colocar a planilha
3) Não tem nada de diferente, só ler a imagem que coloquei
4) Mais explicado conforme a imagem é impossível !
5) Tem lógica sim, leia com calma que vai entender !

Errata:

Tenho células: C8, D8, E8 e F8 e botão fechar H8

Quando clicar ( H8 FECHAR ) copia a célula F8 para C8 e limpa as células D8 e E8 para uma nova soma.

Obrigado desde já !

cara se for somente isso vc pode editar as macros apresentadas com os endereços de celulas corretas
eu não vou escrever uma macro já com as ranges corretas pq me parece algo confuso o fato de vc simplesmente não colocar a formula onde vc quer,
se for para comparação entre duas somas diferentes seria mais pratico ter 2 somas em separado para comparação simultâneas e isso ainda adicionaria a facilidade de comparações múltiplas sem ter que ficar acionando macros

Vc disse no seu primeiro post

Tenho célula: A1, A2, A3 e A4
Célula A2 e A3 faz soma e A4 sai o resultado

Gostaria de uma botão FECHAR do lado direito da célular A4, pois ao clicar, copia o resultado da célula A4 para A1 e limpar a célula A2 e A3 para uma nova soma.

Obrigado desde já !

E não postou nenhuma imagem

E nao tem nenhuma informação em A2 ou A3 e nenhuma Soma em A4

Sendo assim o arquivo aprensentado não diz com sua postagem inicial.

Acabei de colocar em cima Marcelo ERRATA e tem imagem sim num dropbox no post anteriores

sobre o arquivo fora do forum,
se vc apagar o arquivo e outra pessoa se interessar pela solução a pessoa não vai ter como baixar
quem vai ajudar pode estar no trabalho e estar bloqueado para certos sites
ou no meu caso que abro inúmeras paginas simultaneamente , ter que abrir mais uma apenas para baixar um arquivo é desestimulante

sobre a imagem,
ter que criar uma planilha com dados e ranges exatas para testar uma solução é no mínimo algo que tem que valer a pena

se 2 pessoas postaram soluções que não deram certo para algo tão simples alguma coisa tem de errada na sua explicação