Macro P/ copiar e colar APENAS Valores

Boa Noite Pessoal!

Sou novo aqui no forum então desculpe se estiver abrindo um topico com o mesmo assunto mas...meu problema eo seguinte tenho uma planilha de custo de um restaurante, umas das minhas Abas ea "Doces" que tenho todos os custos, e quero criar uma outra Aba "Lista". Fiz uma Macro que copia da Aba "Doces" os Valores e Textos Selecionados e cola na proxima celula vazia na Aba "Lista" porém os valores que tenho são resultados de Formulas e quando colo na Aba "Lista" obvio da Erro, segue abaixo a macro:

Sub Lista_Compras()

'

'Sub Copiarcolar()

Dim celula As Range

Selection.Copy

For Each celula In Worksheets("Lista Compras").Columns(1).Cells

If IsEmpty(celula) Then

ActiveSheet.Paste Destination:=Worksheets("Lista Compras").Rows(celula.Row)

Exit For

End If

Next celula

End Sub

Se alguem tiver uma Luz me Ajude!!!!!

Boa Noite Flavio,

cara eu tentei mas não deu certo da erro "Da erro no Range " fiko dessa forma:

Sub Lista_Compras()

'

'Sub Copiarcolar()

Dim celula As Range

Selection.Copy

For Each celula In Worksheets("Lista Compras").Columns(1).Cells

If IsEmpty(celula) Then

Worksheets("Lista Compras").Rows(celula.Row).Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

Exit For

End If

Next celula

End Sub

não sei mas apenas copiei o que você me passo...

Flavio na verdade eu qro copiar as celulas que eu selecionar, seria algo bem simples d fazer mas essa macro me ajudaria mt pois teria q repetir mt vezes, seria bem ctrl+c ctrl+v apenas valores....

Boooaaaa!!!!! Flavio!!!!

mano valeu mesmo pela ajuda fiko do jeito q eu queria, fiko t devendo essa!!

valeu Flws ABS