重複するidをデータごとにまとめるvbaのコード

excel　vbaで次のようなコードを作りたいです。 シート1に元データが4000件ほどあります。 シート2に、シート1のidが同じものを、3行ずつ横に表示したいです。 idと名前は1度のみ、それ以降は都道府県名と数字のみ表示します。 同じidを持つものが3行に満たないのであれば、改行します。 同じidを持つものが3行以上ある場合は、3行ごとに改行します。 1　佐藤　東京　1000 1　佐藤　千葉　2100 1　佐藤　青森　1300 2　鈴木　東京　5600 2　鈴木　千葉　3500 3　山田　三重　2910 3　山田　長野　3820 3　山田　山口　8760 3　山田　沖縄　6560 4 ： ↓ 1　佐藤　東京　1000　千葉　2100　青森　1300 2　鈴木　東京　5600　千葉　3500 3　山田　三重　2910　長野　3820　山口　8760 3　山田　沖縄　6560 4 ： どなたかこのような動作を行うvbaのコードを教えてください。 よろしくお願いします。