VBA to Sort Value in a range of cell for multiple Column

Hello and thank you in advance

i have three section that contain sporadic values, I'm struggling to have a VBA code that can sort and organize these value from top to bottom and from small to large under its own columns
and so there no blank cell in between values.
i have attached the example
kindly and very well appreciated.