How to scatter rows across sheets?

Question

Visual Basic

For example, there is a sheet:

It is required by means of a VBA macro to scatter rows across different sheets. The result should be sheets with names from the values ​​of the second column:
"1"

"2"

"3"

"4"

"5"

ps no need to write to me to contact freelance exchanges for a solution, I hope only for the enthusiasm of progers, who will even be interested solve a similar problem, in which way I myself sometimes help people, free of charge.