Fórmula grande do VBA não está funcionando

Estou usando o Excel 2013,

Aplico 2 vias o Large Formula VBA, mas não funciona, o que estou errado, não sei

Sub Macro1 ()
'1ª instrução Table Dim ---> Declara variáveis
Dim lRow Tão Longo, lCol Tão Longo
lRow = Range("D5").End(xlDown).Row
lCol = Range("C5").End(xlToRight).Column

'Contagem de colunas em número
Dim k Tão Longo, m Tão Longo
k = Range("C5", Range("C5").End(xlToRight)).Columns.Count
'Contagem de linhas em número
m = Range("D6", Range("D6").End(xlDown)).Linhas.Contagem

Dim MyRange como intervalo
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)"

'E

'=(GRANDE($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

Gentilmente me ajude e obrigado por antecedência