Macro to copy data containing numeric values

[Excel Fox]

Try this

Sub ExcelFox()

    Dim rng As Range
    Dim rngEach As Range
    With Worksheets("Sheet1")
        Set rng = .Range("K2", .Cells(.Rows.Count, "K").End(xlUp))
    End With
    For Each rngEach In rng
        If HasNumber(rngEach.Value) Then
            rngEach(, 0).Value = rngEach.Value
        End If
    Next rngEach
End Sub

Private Function HasNumber(varValue As Variant) As Boolean

    HasNumber = Evaluate("MAX(IFERROR(FIND({""0"",""1"",""2"",""4"",""5"",""6"",""7"",""8"",""9""},""" & varValue & """),0))")
    
End Function

[Flupsie]

Hi Excel Fox

Thanks it works perfectly

Flupsie