マクロを使って、抽出したデータを別のファイルにコピーしたい
VBA初心者です。
自動記録で、フィルターオプション設定を使い抽出したデータを、別ファイルにまとめようとしています。
自動記録ですので、実行はできるのですが、このままだとデータの更新があった時、
範囲の指定をやり直すことになりますので、少しシンプルで応用の効くコードにしたいと思っています。
集約するシート：テスト用 sheet1(集約） sheet2（条件）
元のデータ：金額一覧表(01～03) 金額一覧表(04～06) 金額一覧表(07～10)
sheet1=ファイル名 ＜各データは２万～３万件＞
Sub 抽出_1()
Windows("金額一覧表(01～03).xls").Activate
Range("A1:R16824").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Workbooks("テスト用.xls").Sheets("条件").Range("A1:F27"), Unique:=False
End Sub
------------------------------------------------
Sub データを転記_1()
Windows("金額一覧表(01～03).xls").Activate
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Copy
Windows("テスト用.xls").Activate
Sheets("集約").Select
Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub
---------------------------------------------------
又、金額一覧表(01～03)のデータを貼り付けた後、
金額一覧表(04～06)も同じようにデータ抽出コピーしようとしたのですが、
Sub データを転記_()
の６行目に下記のようなコードを入れたところ、
７行目がデバックしてしまいました。
（実行時エラ-：1004
コピー領域と貼り付け領域の形がちがうため情報を貼り付けることができません）
とエラーが出てしまいました。
6行目 Set sakiRng = Range("A65536").End(xlUp).Offset(1)
7行目 ActiveSheet.Paste ←ここがデバック
何か指定し忘れているものがあるのでしょうか？
お知恵拝借できれば幸いです。
