Formül içine Hücreden veri girmek

[mozdem]

Range("K5").Formula = "=((MAX(F6:F26)-F6)/F6)*100"

Excel Sayfamın K2 hücresine 20 yazmış isem (MAX(F6:F26)
Excel Sayfamın K2 hücresine 10 yazmış isem (MAX(F6:F16)
Excel Sayfamın K2 hücresine 5 yazmış isem (MAX(F6:F11)
olsun istiyorum.

Dim gun As integer
gun=Range("K2").value
Range("K5").Formula = "=((MAX(F6&":F"&(gun+6))-F6)/F6)*100"
şeklinde yaptım olmadı.
Teşekkür ederim

 

[ÖmerFaruk]

Range("K5").Formula = "=((MAX(F6: F" & (gun + 6) & ")-F6)/F6)*100"

 

[mozdem]

Range("K5").Formula = "=((MAX(F6: F" & (gun + 6) & ")-F6)/F6)*100"

Çok Teşekkür ederim