JKsa

Cara, valeu! Deu muito certo! Obrigado pela ajuda!

Olliver, valeu, pela ajuda, mas não funcionou. veja só, são duas planilhas, uma onde são preenchidas informações diariamente e outra para onde os dados ao final do dia são levados. Ao ativar a macro, esta limpa a planilha preenchida e leva os dados para a planilha receptora, onde vão sendo colados sempre abaixo do dia anterior, isso para criar um histórico. o problema está na criação desse histórico, pois como os dados estão sendo levados como fórmulas e não como valores, as fórmulas de datas se alteram todos os dias, ou seja, os dados de ontem, estão com a data atual... entende? adicionado 6 minutos depois Eu até tentei fazer isso: Sheets("DADOSAGENDA").Range("B" & LR + 1).PasteSpecial xlPasteValues Mas ele diz que o método PasteSpecial da classe Range falhou.

Pessoal, criei essa macro que copia e cola os valores para outra planilha, O que está faltando para que ela cole somente o valor, sem a fórmula? Sub AGENDAMENTO() Dim LR As Long 'retorna o número da última linha com conteúdo na coluna LR = Sheets("DADOSAGENDA").Cells(Rows.Count, 2).End(xlUp).Row Sheets("AGENDAMENTO").Range("C3:h44").Copy Sheets("DADOSAGENDA").Range("B" & LR + 1) ActiveCell.Offset(0, 0).Select Range("e3:h44").ClearContents End Sub