Amigos

Preciso de ajuda simples

Sheets("Base_Realizado").Cells(UltLinSim, 1).Copy Destination:=Sheets("Reciclagem").Cells(UltLinRc + 1, 6)

Essa minha linha de comando copia o resultado de uma base para outra no Excel... o problema é que ele está copiando para mim os valores como texto e preciso transformar em valor. Não sei como fazer isso na linha!

Tentei utilizar CDBL()

CDBL(Sheets("Base_Realizado").Cells(UltLinSim, 1).Copy) Destination:=Sheets("Reciclagem").Cells(UltLinRc + 1, 6)

Mas acho que não tem nada a ver... enfim... preciso que converta para valor!

Aguardo Ajuda