VBA Büyük formülü çalışmıyor

Excel 2013 kullanıyorum,

2 yollu Büyük Formül VBA'yı uyguluyorum ama çalışmıyor, neyi yanlış yapıyorum, bilmiyorum

Alt Macro1 ()
'1. Tablo Dim deyimi ---> Değişkenleri bildirir
Uzun Olduğu Kadar Loş, Uzun Olduğu Kadar lCol
lSatır = Aralık("D5").End(xlAşağı).Satır
lCol = Aralık("C5").End(xlToRight).Column

Sayı Olarak Sütun Sayısı
Dim k Uzun, m Uzun
k = Aralık("C5", Aralık("C5").End(xlToRight))).Columns.Count
Satır Satır Sayısı
m = Aralık("D6", Aralık("D6").End(xlAşağı))).Satırlar.Sayı

Aralık Olarak MyRange Dim
MyRange = Range(Range("D5").Offset(1, k + 3), Range("D5").Offset(m, k + 3))

Aralık("D5").Ofset(2, 1 + 3).Formül = "=LARGE(" & MyRange & ",1)"

'Ve

'=(BÜYÜK($I$6:$I$12,1)-I7)/2
Aralık("D5").Ofset(2, 1 + 3).Formül = "=(LARGE(" & MyRange & ",1)-" & Range("D5").Offset(1, k + 3) & ")/2"

End Sub

Kindy bana yardım et ve şimdiden teşekkürler