以下のようにデータを入力したときに
画像のようにレイアウトをかえて、表示用として別シートに書くことは出来ますか？


A出版 004
A出版 003
B出版 006
B出版 005
（本当は画像と同じように書きます）

https://i.imgur.com/1vIYIHQ.jpg

単純に取引先でソートして
VBAで転記するときに、
上と同じなら文字削除すれば簡単でしょうか？