Try

Sub Macro1()
Dim lngRow As Long
For lngRow = 1 To Cells(Rows.Count, "B").End(xlUp).Row
If Not IsNumeric(Range("B" & lngRow)) Then
Range("A" & lngRow).Value = Range("B" & lngRow).Text
Range("B" & lngRow).Value = ""
End If
Next
End Sub

--
Jacob


"Saintsman" wrote:

ColB is a long list with sections names followed by category codes
I need to move the text into colA leaving colB with codes only (all numbers)
ColB.
Doors
940590
555998
447006
447008
810697
810705
810706
810707
Windows
619435
525691
525692