エクセル2013を使用していますが、

ラージ フォーミュラ VBA を 2 通りに適用しましたが、機能しません。何が間違っているのかわかりません

サブMacro1（）
'1st Table Dim ステートメント ---> 変数を宣言します
Dim lRow as long, lCol as long
lRow = Range("D5").End(xlDown).Row
lCol = Range("C5").End(xlToRight).Column

'列数
薄暗い k と同じ長さ、m と同じ長さ
k = Range("C5", Range("C5").End(xlToRight)).Columns.Count
'行数
m = Range("D6", Range("D6").End(xlDown)).Rows.Count

範囲として MyRange を暗くする
Set MyRange = Range(Range("D5").Offset(1, k + 3), Range("D5").Offset(m, k + 3))

Range("D5").Offset(2, 1 + 3).Formula = "=LARGE(" & MyRange & ",1)"

'と

'=(LARGE($I$6:$I$12,1)-I7)/2
Range("D5").Offset(2, 1 + 3).Formula = "=(LARGE(" & MyRange & ",1)-" & Range("D5").Offset(1, k + 3) & ")/2"

End Subの

親切に助けてくれてありがとう