Bom dia!

Se entendi bem o que você quer tente usar a fórmula:

SE(ÉNÚM(A1);"";A1)

Eu fiquei em duvida se quer a solução com formula ou VBA.
Se por formula, utilize a dica do tacito, se quer por VBA, adaptando uma rotina postada do Reinaldo no tópico abaixo - viewtopic.php?f=10&t=12660, ficaria da seguinte forma:

Sub CopiarPorReinaldo()
    
    x = 2
    
    For Each cel In Range("A2:A20")
        
        If IsNumeric(cel.Value2) Then
            
            Range("B" & x) = ""
        Else
            
            Range("B" & x) = cel.Value2
            
        End If
        x = x + 1
    Next
    
End Sub

[]s

Bom dia!!

Essa forma permite escolher a formula ou VBA (via VBA)

Sub AleVBA_12857_FormulaOuValor()
    Dim lastrow As Long
     
    lastrow = Cells(Rows.Count, "A").End(xlUp).Row
     
    Application.ScreenUpdating = False
        Range("B1").Formula = "=IF(ISNUMBER(A1),"""",A1)"
        Range("B1").AutoFill Destination:=Range("B1:B" & lastrow)
        'Caso não queira formula, retire a aspa do da linha abaixo
        'Range("B1:B" & lastrow).Value = Range("B1:B" & lastrow).Value
    Application.ScreenUpdating = True
     
End Sub