VBA Large formel fungerar inte

Jag använder Excel 2013,

Jag använder 2-vägs Large Formula VBA, men det fungerar inte, vad jag har för fel, jag vet inte

Sub Macro1 ()
'1st Table Dim-sats ---> Deklarerar variabler
Dim lRow As Long, lCol As Long
lRad = Range("D5").End(xlDown).Rad
lCol = Range("C5").End(xlToRight).Kolumn

'Kolumnräkning i antal
Dim k As Long, m As Long
k = Range("C5", Range("C5").End(xlToRight)).Kolumner.Count
'Räkna rader i antal
m = Range("D6", Range("D6").End(xlDown)).Rows.Count

Dim MyRange As Range
Ange MyRange = Range(Range("D5").Offset(1, k + 3), Range("D5").Offset(m, k + 3))

Range("D5").Offset(2, 1 + 3).Formel = "=LARGE(" & MyRange & ",1)"

'Och

'=(LARGE($I$6:$I$12,1)-I7)/2
Range("D5").Offset(2, 1 + 3).Formel = "=(LARGE(" & MyRange & ",1)-" & Range("D5").Offset(1, k + 3) & ")/2"

End Sub

Snälla hjälp mig och tack för förskottet