Excelでﾏｸﾛの記録で保存したﾏｸﾛを変換したい下記の記録されたﾏｸﾛをｼｰﾄ全体で行えるようにしたいのですがどのようにしたらいいか教えてください｡ ' Macro3 M…

Excelでﾏｸﾛの記録で保存したﾏｸﾛを変換したい

下記の記録されたﾏｸﾛをｼｰﾄ全体で行えるようにしたいのですが
どのようにしたらいいか教えてください｡

' Macro3 Macro
'
Selection.Insert Shift:=xlDown
Range("B1").Select
ActiveCell.FormulaR1C1 = "=AVERAGE(R[1]C:R[600]C)"
Selection.AutoFill Destination:=Range("B1:M1"), Type:=xlFillDefault
Range("B1:M1").Select
Rows("1:1").Select
Selection.Insert Shift:=xlDown
Rows("2:2").Select
Selection.Copy
Rows("1:1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A3").Select
Application.CutCopyMode = False
Selection.Cut Destination:=Range("A1")
Rows("2:2").Select
ActiveWindow.SmallScroll Down:=573
Rows("2:602").Select
Selection.Delete Shift:=xlUp
End Sub

For Each...Nextｽﾃｰﾄﾒﾝﾄを使います｡
http://officetanaka.net/excel/vba/statement/ForEachNext.htm
｢Sub Macro3()｣から｢End Sub｣の間のﾏｸﾛ全体を下記の行ではさみます｡

 Dim ws
 For Each ws In Worksheets
 ws.Activate

 Next ws

ただ､一番最初の挿入する位置のｾﾙが選択されていないので､それの指定が必要になると思いますが……