vba - ダイナミックレンジ計算マクロ

Question

12 枚のシートからなる Excel ドキュメントがあります。
すべてのシートには、列 A から X までの範囲で、行の可変範囲を持つ多くのデータが含まれています。
すべてのシートについて、すべての列の平均と標準誤差を計算しようとしています。できれば要約シートに出力してください。

私の思考プロセス:

1. 最後の行の下のすべてのセルに平均を計算させることができました。
2. 標準誤差で同じことをしようとしたとき、問題は、ステップ 1) で計算された平均が計算に含まれていたことです。
3. 結局のところ、これらの計算の結果を別の「概要」タブに表示する方が便利なようです。

これは、列の最後の値のすぐ下に平均が生成されるように機能する、私が試したコードです。

Sub ColumnAverageFormula()

For i = 3 To 24
    Columns(Columns(i).Address).Select
    Cells(1, ActiveCell.Column).End(xlDown).Offset(1, 0).Formula = "=Average(" & Cells(1, ActiveCell.Column).Address(0, 0) & ":" & Cells(1, ActiveCell.Column).End(xlDown).Address(0, 0) & ")"
    Next i
For j = 3 To 24
    Columns(Columns(j).Address).Select
    Cells(1, ActiveCell.Column).End(xlDown).Offset(1, 0).Formula = "=stdev.p(" & Cells(1, ActiveCell.Column).Address(0, 0) & ":" & Cells(1, ActiveCell.Column).End(xlDown).Address(0, 0) & ")"
    Next j
End Sub

Tl;dr: Excel ファイルのすべてのシートのすべての列の平均と標準誤差を計算するコードを書きたいのですが、その結果は「概要」シートに生成されます。