Bom dia!!!

Como não posso baixar seu anexo ..segue

Para sua 1º pergunta você poderia fazer algo assim...

ActiveSheet.Range("A:X").Select
Selection.PasteSpecial xlPasteValues

Teste para ver se funciona.

Quanto a segunda ..

sub SuaMacro()
application.ontime now + timevalue ("00:00:05"), "SuaPlanilha"
end sub

Veja se vai dar certo, aproposito se necessario faça uma adaptação!!

Alexandre,

não consegui implementar suas dicas.
na primeira, montei assim:
Sub Registrar()
'
' Registrar Macro
'
' Atalho do teclado: Ctrl+r
'
Range("K2").Select
Selection.ClearContents
Range("A2:D2").Select
Selection.Copy
ActiveSheet.Range("A:D").Select
Selection.PasteSpecial xlPasteValues
Sheets("Plan1").Select
Range("A2").Select
End Sub

e deu erro aki Selection.PasteSpecial xlPasteValues
Além disso, creio que essa forma apenas colaria como valores. Eu queria uma rotina que inserisse as células copiadas já como valores.

No segundo tópico, quando vc diz "sua planilha"
eu substituo pelo o q?

Se me permitem, uma opção

use
Sub Registrar()

Range("A2:D2").Select
Selection.Copy
Sheets("Plan2").Select
Range("A3").Select
Selection.Insert Shift:=xlDown
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("Plan1").Select
Range("A2").Select

End Sub

Reinaldo,
Muito obrigado.

Era exatamente o que eu precisava.

fico no aguardo pra acertar a questão da automatização da macro com o tempo.

abs

Desculpe, não havia lido o post completo.
Pessoalmente, não gosto muito dessa "automação" por tempo, mas Veja este post em ozgrid.com:

http://www.ozgrid.com/Excel/run-macro-on-time.htm

Anexo seu exemplo como poderá ficar

Reinaldo,

muito obrigado. Ajudou demais mesmo.

valeu xapa

abs