Macro to cut and paste data in below row contaning single digit

Hello everyone!
In sheet1 in column B i have TID i want each TID should cut and paste in below row contaning single digit.
The output which i require is showing in sheet2 in column B.
Any help would be greatly appreciated!

Regards,
upa

Hi Dear,

This is not a huge task that you need a macro.You can get the desired output just by inserting a new cell below TID & shift cells below.
Easy and Fast.