それはさすがに使い方が間違ってる
ランダムに入力されるSheet と それを並べ替え、集計するSheet は別にしないと
入力用にユーザーフォームを使う手もあるが、後半の手間は一緒なような気がする

もしくは、各コードの範囲を余計に設けておいて、空欄を埋めてくとかか
111用に予め20行設けておく　21行目に111の合計を=SUM(B1:B20)にしておくような