Macro to copy data containing numeric values

[Flupsie]

I would like a macro to copy data containing numeric values from Col K to J for eg 4201K, W4250 etc

I am battling to upload the sample data where I highlighted the numeric data in Col K that must be copied to Col J


I have code to do this, but it does nothing

 Sub Copy_Data()
Dim sh As Worksheet, lr As Long, rng As Range, c As Range
Set sh = Sheets(1)
lr = sh.Cells.Find("*", sh.Range("A1"), xlValues, xlPart, xlByRows, xlPrevious).Row
Set rng = sh.Range("K2:K" & lr)
    For Each c In rng
        If IsNumeric(Left(c.Value, 1)) Then
            c.Copy sh.Cells(Rows.Count, "J").End(xlUp)(2)
        End If
    Next
End Sub

Your assistance in resolving this is most appreciated