Move numbers from one column to another

[Panoos64]

Dear all,
I am kindly require your support for a VBA code so that to run through col. "C28" (start) and rows down and where find numbers should place them in col."A" (A30) but exactly in description's adjacent cells. Please see below my original data. Thank you all in advance!

 

[Mushy peas]

I think this should work:

sub movenumbers()
    Dim Code_rng as Range
    Set Code_rng = 'insert Range here

    Code_rng.Formula2R1C1 = "IF(ISNUMBER(RC[2]),RC[2],"""")"
    Code_rng.Value2 = Code_rng.Value2
end sub

 

[Panoos64]

Thank you Mushy for your support. Unfortunately it doesn't work but therefore that I have a mistake where I have to determine the range. Note that the range should be C28:C14800 and if is number should place it in col. "A" next to description. Thank you once again. Have a nice day

 

[Joe4]

Thank you Mushy for your support. Unfortunately it doesn't work but therefore that I have a mistake where I have to determine the range. Note that the range should be C28:C14800 and if is number should place it in col. "A" next to description. Thank you once again. Have a nice day

They made a slight typo. There should be another "=" in front of the word "IF".

When I set the code like this, it ran successfully on your example:
Sub movenumbers()

sub movenumbers()
    Dim Code_rng As Range
    Set Code_rng = Range("A29:A36")

    Code_rng.Formula2R1C1 = "=IF(ISNUMBER(RC[2]),RC[2],"""")"
    Code_rng.Value2 = Code_rng.Value2
   
End Sub

 

[Panoos64]

Thank you Joe4, it works perfect and according to my data! Have a great day!

 

[Joe4]

You are welcome. Glad we could help.
I just had to make a few small edits to the code that Mushy peas posted.