Excel マクロ-最終セルの式を隣の列の最終行と同じ行までコピー

'Cが入力されている行までDにDの最終行の数式をコピーする

Private Sub FormulaCopy()

Dim 数式を取得する列 As Range
Dim データが入力されている列 As Range

Set 数式を取得する列 = Range("D65536").End(xlUp)
Set データが入力されている列 = Range("C65536").End(xlUp)

Range(数式を取得する列.Offset(0,-1 ), データが入力されている列).Offset(0, 1).Formula = _
数式を取得する列.Formula

End Sub

'Offset(0,-1)と(0,1)は(x,y)の縦横の場所を示す。
'もしDではなくEに数式を入力したい場合で数式の範囲の参照元がCのままである場合は、Offset(0,-2)、Offset(0,2)となる。