Need help please,

Need some VBA code i can run.

I need to sort in numerical order and cut (as there are survey photo's
in the sheet) the surrounding cell contents and paste them in to the
bottom of the sheet. Note the sheet will have up to 100 sections to
copy.

There is an old sequential numbering, nominally (a few numbers may be
omitted) 1 though to 100 and new numbering that could be any unique
number between for example 3 to 340

I'll use the example below to show what I'm trying to do....
I wish to re-order the grid (3x3) of cells around the number in the
middle.
I have put in a line space between the 3x3 grid to make reading it as
a text file easier.

Before
--------

1, pp, ppp
X, 3, XXX
n, nn, nnn

2, qq, qqq
X, 1, XXX
m, mm, mmm

3 tt, ttt
X, 2, XXX
d, dd, ddd

4, hh, hhh
X, 6, XXX
l, ll, lll

5, w, www
X, 7, XXX
a, aa, aaa

After
--------

2, qq, qqq
X, 1, XXX
m, mm, mmm

3 tt, ttt
X, 2, XXX
d, dd, ddd

1, pp, ppp
X, 3, XXX
n, nn, nnn

4, hh, hhh
X, 6, XXX
l, ll, lll

5, w, www
X, 7, XXX
a, aa, aaa