La fórmula grande de VBA no funciona

Estoy usando Excel 2013,

Aplico de 2 vías el VBA de fórmula grande, pero no funciona, lo que estoy mal, no lo sé

Sub Macro1 ()
'Instrucción 1st Table Dim ---> Declara variables
Dim lRow como largo, lCol como largo
lFila = Rango ("D5"). Fin (xlAbajo). Fila
lCol = Range("C5").End(xlToRight).Columna

'Recuento de columnas en número
Dim k como largo, m como largo
k = Rango("C5", Rango("C5").Final(xlADerecha)).Columnas.Recuento
'Recuento de filas en número
m = Rango("D6", Rango("D6").End(xlDown)).Rows.Count

Dim MyRange como rango
Establecer MiRango = Rango(Rango("D5").Desplazamiento(1, k + 3), Rango("D5").Desplazamiento(m, k + 3))

Rango("D5").Desplazamiento(2, 1 + 3).Fórmula = "=GRANDE(" & MiRango & ",1)"

'Y

'=(GRANDE($I$6:$I$12,1)-I7)/2
Rango("D5").Desplazamiento(2, 1 + 3).Fórmula = "=(GRANDE(" & MiRango & ",1)-" & Rango("D5").Desplazamiento(1, k + 3) & ")/2"

End Sub

Por favor ayúdame y gracias por el avance.