Большая формула VBA не работает

Я использую Excel 2013,

Я применяю 2 способа большой формулы VBA, но не работаю, в чем я ошибаюсь, я не знаю

Sub Macro1 ()
'1st Table Dim оператор ---> Объявляет переменные
Dim lRow так долго, lCol как долго
lRow = Диапазон ("D5"). Конец (xlDown). Строка
lCol = Диапазон ("C5"). Конец (xlToRight). Столбец

'Количество столбцов в числе
Dim k As Long, м As Long
k = Диапазон ("C5", Диапазон ("C5"). Конец (xlToRight)). Столбцы. Количество
'Количество строк в числе
m = Диапазон ("D6", Диапазон ("D6"). Конец (xlDown)). Строки. Количество

Затемнить MyRange как диапазон
Установите MyRange = Range (Range ("D5"). Смещение (1, k + 3), Range ("D5"). Смещение (m, k + 3))

Диапазон("D5").Смещение(2, 1 + 3).Формула = "=БОЛЬШОЙ(" & MyRange & ",1)"

'И

'=(БОЛЬШОЙ($I$6:$I$12,1)-I7)/2
Диапазон("D5").Смещение(2, 1 + 3).Формула = "=(БОЛЬШОЙ(" & MyRange & ",1)-" & Диапазон("D5").Смещение(1, k + 3) & ")/2"

End Sub

Пожалуйста, помогите мне и спасибо за заранее