フィルタされたものを切り取り別シートに行ごと挿入

Excelでフィルタして抽出した行を切り取りし、
同じbook内の別シートの表に、
行ごと挿入したいのですができません。

具体的にはシート1に既に1月～12月まで発売日順に縦に商品が並んでいる価格表があり、
シート2のうち発売日が6月のものをフィルタで抽出して切り取り、その状態で可視セル選択しシート1の6月の行に行ごと挿入したいです。

先月、仕方なく可視セル選択でコピーしたものを
一旦下の方の空白のところに貼り付けて、
シート1に挿入したい行の数だけ空白で行を作ってから、貼り付けたいものをコピーし、シート2を削除、を一回一回やっていたら１日かかりました。。

どなたかお知恵を貸して下さい。

質問者からの補足コメント

• tom04さん
  さっそくご回答ありがとうございます！
  なるほど！！！
  実は商品名を出せないのであえてわかりやすく発売日順で…と記載したのですが、
  実際の表はシート1に果物、野菜、衣服……などカテゴリーごとに30行ぐらい縦に商品が並んでいる状態です。なので果物、野菜、衣服のそれぞれのカテゴリー(その並び順は決まっている)が並んでいるところの下に挿入しなければならない、という状態です。

  No.1の回答に寄せられた補足コメントです。 補足日時：2017/06/20 22:35

No.2 回答者： tom04 回答日時： 2017/06/21 08:17

No.１です。

＞実は商品名を出せないのであえてわかりやすく発売日順で…

ん？内容によってまったくやり方が異なってきます。
もちろん実際のデータを提示する必要はありませんが、
多少のサンプル（表の状態）を提示してもらわないと回答のしようがありませんし、
回答したとしても、まったく無意味な回答になってしまいます。

今回もその辺が明らかにしてもらえませんので、一般的な考え方として
要するに「カテゴリ」ごとにまとめれば良いと思いますので、

①　カテゴリのコード番号などを表示する列を1列設ける。
（VLOOKUP関数やCHOOSE関数などを利用し、カテゴリ別の「番号」を表示させる列を設ける）

あとはNo.1で回答した方法（並び替え）で対応できそうに思います。

※　当然VBAで可能ですが、ここでコードを記載しても無意味なので
今回はこの程度で・・・m(_ _)m

No.1 回答者： tom04 回答日時： 2017/06/20 21:46

こんばんは！

具体的な配置が判らないのですが、
考え方として・・・
①　フィルターをかける
②　可視セルをSheet1の最終行の下へカット＆ペースト
③　Sheet1の日付列の昇順で並び替え

といった感じで出来そうな気がするのですが。

そんな単純なコトではないのでしょうかね？m(_ _)m