Excel 2013-at használok,

Kétirányúan alkalmazom a Large Formula VBA-t, de nem működik, mit tévedek, nem tudom

Sub Macro1 ()
'1st Table Dim utasítás ---> Deklarálja a változókat
Dim lRow As Long, lCol As Long
lSor = Tartomány("D5").End(xlDown).Sor
lCol = Tartomány("C5").End(xlToRight).Oszlop

„Oszlopszám a számban
Dim k As Long, m As Long
k = Tartomány("C5", Tartomány("C5").End(xlToRight)).Oszlopok.Számlálás
'Sorok száma a számban
m = Tartomány("D6", Tartomány("D6").End(xlDown)).Sorok.Szám.

Dim MyRange As Range
Set MyRange = Tartomány(Tartomány("D5").Eltolás(1, k + 3), Tartomány("D5").Eltolás(m, k + 3))

Tartomány("D5").Eltolás(2, 1 + 3).Formula = "=LARGE(" & Saját tartomány & ",1)"

'És

'=(NAGY($I$6:$I$12,1)-I7)/2
Tartomány("D5").Eltolás(2, 1 + 3).Formula = "=(LARGE(" & Saját tartomány & ",1)-" & Tartomány("D5").Eltolás(1, k + 3) & ")/2"

End Sub

Kérlek segítsetek és köszönöm előre is