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.

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