２つの列の計算（比較差分を計算）を出力

２つの指定した列の計算結果を一列に全部出力させる。

Sub 比較差抽出()
'ある対象の前後のデータの比較（２列の比較差）を抽出

Dim column As Integer       '計算先の格納列（仮）
Dim columnStr As String
Dim beginCell As Range      '初めに入力するセル
Dim endCell As Range        '式を代入する最終セル
Dim cell1 As String         '最初に指定する比較対象セル１
Dim cell2 As String         '最初に指定する比較対象セル２
Dim keisan As String        '計算式を格納
Dim kiten As Range          'ワークシート基点セル

'変数の初期化
cell1 = "AE2"                       '比較対象セル１の列
cell2 = "R2"                        '比較対象セル２の列
column = 46                         '計算先の格納列（仮）
Set kiten = Range("A1")             '列の最後を求める為（仮）
Set beginCell = Cells(2, column)    '初めの式挿入先を設定

'式の作成
keisan = "=" & cell1 & "-" & cell2      '差分の計算
Debug.Print keisan

'式の代入最終セルを設定
Set endCell = Cells(kiten.End(xlDown).Row, column)
Debug.Print endCell.Address

'対象基点セルに式を代入
beginCell.Value = keisan

'対象基点セルを選択
beginCell.Select
'対象基点セルをコピー
beginCell.Copy

'対象範囲すべてにコピー＆ペースト
Range(beginCell, endCell).Select
ActiveSheet.Paste

End Sub

可変に出来るように引数を持つFunctionに変更しよう。。
式をワークシート関数使うなりでもう少し他の値も取ってこれそう。