Alternative:
Sub M_snb()
sn = Sheet1.ListObjects(1).DataBodyRange
For j = 1 To UBound(sn)
y = Val(StrReverse(sn(j, 1) & "9"))
y = Len(sn(j, 1)) + 1 - Len(y)
sn(j, 1) = Left(sn(j, 1), y) & Format(Mid(sn(j, 1), 1 + y), "00000")
Next
Cells(1, 10).Resize(UBound(sn)) = sn
With Columns(10)
.SpecialCells(2).Sort Cells(1, 10)
sn = Columns(10).SpecialCells(2)
.ClearContents
End With
For j = 1 To UBound(sn)
y = Val(StrReverse(sn(j, 1) & "9"))
y = Len(sn(j, 1)) + 1 - Len(y)
sn(j, 1) = Left(sn(j, 1), y) & Val(Mid(sn(j, 1), 1 + y))
Next
Sheet1.ListObjects(1).DataBodyRange = sn
End Sub