Move a range of cells if cell in col B is a number

[andymalan]

Greetings my dear learned friends,
in the screengrab below I need to determine if cells in Col B is a number. If it is a number, move cells in col B:AS to J74.
Then check the next row, B76. Because B76 is text, skip to B77.
B77 is a number Move B77:AS77 to J76.
Loop through 2500 rows.
Please help me with this I have no idea how to solve this.

 

[Fluff]

Will you ever have two consecutive rows with numbers in col B? If so what should happen.
Also do you want to delete the rows after moving the data to the row above?

 

[andymalan]

Will you ever have two consecutive rows with numbers in col B? If so what should happen.
Also do you want to delete the rows after moving the data to the row above?

Hello Fluff
first answer is no.
2nd answer is yes

thirdly thank you thank you thank you.

 

[Fluff]

Ok, how about

Sub andymalan()
   Dim Cl As Range, Rng As Range
   
   For Each Cl In Range("B2", Range("B" & Rows.Count).End(xlUp)).SpecialCells(xlConstants, xlNumbers)
      Cl.Resize(, 44).Copy Cl.Offset(-1, 8)
      If Rng Is Nothing Then Set Rng = Cl Else Set Rng = Union(Rng, Cl)
   Next Cl
   If Not Rng Is Nothing Then Rng.EntireRow.Delete
End Sub

 

[andymalan]

Ok, how about

Sub andymalan()
   Dim Cl As Range, Rng As Range
  
   For Each Cl In Range("B2", Range("B" & Rows.Count).End(xlUp)).SpecialCells(xlConstants, xlNumbers)
      Cl.Resize(, 44).Copy Cl.Offset(-1, 8)
      If Rng Is Nothing Then Set Rng = Cl Else Set Rng = Union(Rng, Cl)
   Next Cl
   If Not Rng Is Nothing Then Rng.EntireRow.Delete
End Sub

Hello Fluff
that worked a treat. Thank you so much.

 

[Fluff]

You're welcome & thanks for the feedback.