フィルターオプションの設定をマクロで

フィルターオプションの設定をマクロでできるように設定していますが、うまくいきません。

アポというシートから訪問というシートにフィルターオプションの設定で情報を抽出して、
マクロで簡単に繰り返せるようにしたいです。
手動でフィルターオプションの設定を行うとB2～N10まで反映するんですが、
それを記録したマクロを実行すると、B列の値しか反映しません。
ただ、一度反映したセルを全削除してからマクロを実行すると、
一度目と同じように全て反映します。

－－－－－－－－－－－－－－－－－－－－－－－－
Sub アポ→訪問()
'
' アポ→訪問 Macro
'

'
Application.CutCopyMode = False
Sheets("アポ").Cells.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
Range("A1:A2"), CopyToRange:=Range("B1"), Unique:=False

－－－－－－－－－－－－－－－－－－－－－－－－

始めての質問で、マクロについての知識も少ないので
わかりづらいかもしれませんが、よろしくお願いします。

No.1 回答者： keithin 回答日時： 2014/02/08 00:02

多分マクロじゃなく手作業でフィルタオプションの設定を行っても同じ結果になると思いますが、

＞一度反映したセルを全削除してからマクロを実行すると、
＞一度目と同じように全て反映します。

というところまで分かってるなら、そのようにしてみるのも一つの手です。

sub macro1()

　range("B:N").clearcontents

　application.cutcopymode = false
　worksheets("アポ").range("B:N").advancedfilter _
　　action:=xlfiltercopy, _
　　criteriarange:=range("A1:A2"), _
　　copytorange:=range("B1"), _
　　unique:=false
end sub