Boa tarde dimoraes

Veja se é isto que vc quer:

http://guiadoexcel.com.br/funcao-para-e ... de-celulas

[]s

Patropi, seria interessante se a solução fosse incorporado a macro postada. Utilizo umas 30 macros iguais a essa, copiando colunas diferentes. Fica meu agradecimento pelo link e o devido armazenamento da função ao BD.

RETIFICAÇÃO.
Esqueci de informar que os valores não numéricos que são copiados juntos, é o valor de erro #N/D e é justamente esses que não gostaria que fossem copiados com os numéricos.

Boa tarde!!

Você tem formula neste intervalo?

Att

Creio que utilizando a copia em range, não é possível distinguir Números x Textos x Mensagem erro (#N/D...)
Como não foi especificado o que fazer com o espaço "texto", experimente a situação abaixo

Sub Copiar()
Application.ScreenUpdating = False
x = 7
For Each cel In Range("U7:U20")
    If IsNumeric(cel.Value2) Then
        Range("J" & x) = cel.Value2
    x = x + 1
    End If
Next
Range("R1").Select
Selection.ClearContents
Application.ScreenUpdating = True
End Sub

Opa. Atrasado mais em tempo de responder ao alexandrevba: sim, a coluna tem formulas e agradecer ao Reinaldo pela macro postada.