Macro para copiar dado, apagar e inserir data

[Manoel Bastos]

Criei a macro abaixo para que quando eu fizesse o fechamento, ela inserisse os dados de tal celula para outra aba, e inserisse tambem a data que os dados fossem enviados e mantivesse a data do envio e não alterasse quando eu salvar ou reabrisse a planilha, mas infelizmente não está dando certo, apenas apagar os dados que está funcionando corretamente para que eu possa inserir novos dados. Algué por favor consegue me ajudar?

 

Sub limpar_01()
        
    Mensagem = MsgBox("Deseja Realmente Fechar?", vbYesNo, "Fechar.")
    
    If Mensagem = vbYes Then
    
    Dim LastRow As Object

Set LastRow = Plan43.Range("B4003").End(xlUp)

LastRow.Offset(1, 0).Value = Format(Now(), "DD/MM/YYYY")
LastRow.Offset(1, 1).Value = Plan22.Range("E40")
LastRow.Offset(1, 2).Value = Plan22.Range("E2")
LastRow.Offset(1, 3).Value = Nome da planilha de envio
LastRow.Offset(1, 4).Value = Plan22.Range("E8")
    
    Range("B3").ClearContents
    Range("B17:C39").ClearContents
    
    End If

End Sub

 

[Basole]

que quando eu fizesse o fechamento, ela inserisse os dados de tal celula para outra aba, e inserisse tambem a data que os dados fossem enviados e mantivesse a data do envio e não

Nao estou entendendo...

voce quer a macro executa quando fechar a planilha?

Seria melhor se fizesse um modelo com alguns dados ficticios e indicasse o resultado desejado manualmente.

 

 

[Manoel Bastos]

Boa Noite! Não é quando eu fechasse a planilha, e sim quando eu clicasse no botão "Fechar Conta" Ai eu quero que ele limpe a comanda e envie o valor total da conta para a planilha " aba" especifica preenchendo essa planilha a partir da primeira linha em branco.

[Basole]

Boa noite,

Ajustar o código vba, é simples.

O difícil é entender o que voce precisa, um exemplo ajudaria muito.