数値を入力したセールのみで別シートを作成

質問

コード 　数量
1
2 　　　　10
3
4 　　　　11
のようにＥＸＣＥＬシートに入力した場合に　結果として
コード　　　数量
2　　　　　　10　　　　　　　　　　　　　
4　　　　　　11　として別シートを作成を作成したいのですが、やり方がわかりません。

回答No.2

ASIMOV

＞一連の処理を自動的にするにはどうしたらよいのでしょうか

No1の回答の操作を「新しいマクロの記録」で記録すれば良いのでは？
-----------------------
Sub Macro1()
' Macro1 Macro
　Range("B1").Select
　Selection.AutoFilter
　Selection.AutoFilter Field:=2, Criteria1:="<>"
　Range("A1").Select
　Range(Selection, Selection.End(xlToRight)).Select
　Range(Selection, Selection.End(xlDown)).Select
　Selection.Copy
　Sheets("Sheet1").Select
　Sheets.Add
　ActiveSheet.Paste
　Range("A1").Select
　Sheets("Sheet1").Select
　Range("B1").Select
　Selection.AutoFilter
　Range("A1").Select
End Sub
----------------

＞ボタンのようなものをシートに貼り付けて

ツールバーを右クリック、「フォーム」をクリック、「ボタン」をクリックして
シートの適当な位置をドラグしてボタンを作成します
その時「マクロ登録」の窓が出ますので、上記のマクロを登録します

回答No.1

ASIMOV

「数量」のセルを選択し、
メニューの「データ」「フィルター」「オートフィルター」とクリックします
「数量」セルに▼のボタンが付きますので、それをクリックし
（空白以外のセル）をクリックし
選ばれたセルを選択、コピーして、別シートに貼り付けてください

補足

ASIMOVさん　ご回答ありがとうございます。
一連の処理を自動的にするにはどうしたらよいのでしょうか
また　ボタンのようなものをシートに貼り付けて　ボタンをクリックしたら
別シートが作成されるようになると助かります。
アドバイスをお願いいたします。