VBA Grote formule werkt niet

Ik gebruik Excel 2013,

Ik pas op 2 manieren de Grote Formule VBA toe, maar werkt niet, wat ik verkeerd heb, ik weet het niet

Sub Macro1 ()
'1st Table Dim statement ---> Declareert variabelen
Dim lRij zo lang, lKol zo lang
lRij = Bereik("D5").End(xlDown).Rij
lCol = Range("C5").End(xlToRight).Column

'Kolomtelling in aantal
Dim k zo ​​lang, m zo lang
k = Bereik("C5", Bereik("C5").End(xlToRight)).Columns.Count
'Rijtelling in aantal
m = Bereik("D6", Bereik("D6").End(xlDown)).Rows.Count

Dim MyRange als bereik
Set MyRange = Range(Range("D5").Offset(1, k + 3), Range("D5").Offset(m, k + 3))

Bereik("D5").Offset(2, 1 + 3).Formule = "=LARGE(" & MijnBereik & ",1)"

'En

'=(GROOT($I$6:$I$12,1)-I7)/2
Bereik("D5").Offset(2, 1 + 3).Formule = "=(LARGE(" & MijnBereik & ",1)-" & Bereik("D5").Offset(1, k + 3) & ")/2"

End Sub

Help me vriendelijk en bedankt voor het voorschot