Newbook.Worksheets("Sheet1").Columns.AutoFit '列幅を自動調整
  Newbook.Worksheets("Sheet1").Rows.RowHeight = 15 '行の高さを15に設定
  Newbook.Worksheets("Sheet1").Range("H3").Select 'H3を選択
  ActiveWindow.FreezePanes = True 'ウィンドウ枠の固定

この辺は必要ないかと思います。
また、AZなどの部分は変更ください。
(AZの列が何番目かを調べているだけなので、AZをBとかに変えてもらうと、B列でできます)

前へ 次へ

この情報が含まれているまとめはこちら

【VBA】 オートフィルターでの抽出作業【Excel】

オートフィルターでの可視セルのコピーや、絞り込みです。可視セルのみコピーしたい場合や、可視セルのみ数式をコピーしたい場合など様々な場合で使いたいことは多いでしょう!ということでまとめます。(取り急ぎ。 追記予定)

このまとめを見る