Aiuda

oi, Albino!

... una macro que me premita, copiar los datos escritos en una sheet
... copiar esos datos asta una otra sheet e de seguida borrar los datos escritos en la 1ª sheet
... por fim encerrar el programa grabando las alteraciones [...]

o codigo seguinte, copia os conteudos de folha de trabalho ativos em uma folha de trabalho somada nova,
limpa os conteudos de folha copiada, saia da aplicação [e registra o livro de trabalho]
registros prévios são supostos.

Sub CopiaCelas()
Dim EstaFolha As String
EstaFolha = ActiveSheet.Name
With Worksheets.Add
Worksheets(EstaFolha).Cells.Copy .Range("a1")
End With
Worksheets(EstaFolha).Cells.Clear
Application.Quit
ThisWorkbook.Close True
End Sub

receba um abraço
hector.

para uma compreensão de idioma melhor, você poderia querer subscrever a um grupo de notícias em português:
microsoft.public.pt.excel