Velký vzorec VBA nefunguje

Používám Excel 2013,

Aplikuji dvousměrně velký vzorec VBA, ale nefunguje, co se mýlím, nevím

Sub Macro1 ()
'1st Table Dim příkaz ---> Deklaruje proměnné
Dim lRow As Long, lCol As Long
lRow = Range("D5").End(xlDown).Row
lCol = Rozsah("C5").End(xlToRight).Sloupec

'Počet sloupců v čísle
Dim k As Long, m As Long
k = Rozsah("C5", Rozsah("C5").End(xlToRight)).Columns.Count
'Počet řádků v čísle
m = Rozsah("D6", Rozsah("D6").End(xlDown)).Rows.Count

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

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

'A

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

End Sub

Laskavě mi pomozte a děkuji předem