Velika formula VBA ne deluje

Uporabljam Excel 2013,

Uporabljam dvosmerno Large Formula VBA, vendar ne deluje, kaj se motim, ne vem

Podmakro1()
'1st Table Dim stavek ---> Oglaša spremenljivke
Dim lRow As Long, lCol As Long
lRow = Range("D5").End(xlDown).Row
lCol = Range("C5").End(xlToRight).Column

'Štetje stolpcev v številu
Dim k As Long, m As Long
k = Obseg("C5", Obseg("C5").Konec(xlToRight)).Columns.Count
'Štetje vrstic v številu
m = Range("D6", Range("D6").End(xlDown)).Rows.Count

Zatemni MyRange kot obseg
Nastavite MyRange = Range(Range("D5").Offset(1, k + 3), Range("D5").Offset(m, k + 3))

Obseg("D5").Odmik(2, 1 + 3).Formula = "=VELIK(" & MyRange & ",1)"

'In

'=(VELIKO($I$6:$I$12,1)-I7)/2
Obseg("D5").Odmik(2, 1 + 3).Formula = "=(VELIK(" & MyRange & ",1)-" & Obseg("D5").Odmik(1, k + 3) & ")/2"

End Sub

Lepo mi pomagajte in hvala za vnaprej