Move items categories from col "A" to col. "B"

[Panoos64]

Hi to everyone, kindly require to provide me support so that a VBA code, would run through col. “A” and where find the category of the items, by which the formats are like “00000001” or 00000024, should move it in col. “B” in adjacent cell of each item. Therefore, that the spreadsheet contains more than 20000 rows and should begin from row “7”. I present below the original date and the expected result. Thank you all in advance.

Original data

Expected result

 

[DanteAmor]

On a copy of your sheet, try the following:

Sub categories()
  Dim a As Variant, i As Long, cat As Variant
  
  a = Range("A7:B" & Range("A" & Rows.Count).End(3).Row).Value2
  For i = 1 To UBound(a)
    If a(i, 1) Like "????????-*" Then
      cat = a(i, 1)
      a(i, 1) = ""
    Else
      a(i, 2) = cat
    End If
  Next
  Range("A7").Resize(UBound(a, 1), 2).Value = a
End Sub

 

[Panoos64]

Thank you so much Dante! It works perfect and nicely. Thank you also for your time spent for my project. Hv a great lovely day!!

 

[DanteAmor]

I'm glad to help you. Have a nice day too. Thanks for the feedback.