kod kısaltma yardım

[thugangel]

merhabalar. R4 hücresine yazılan kişi sayısına göre 11 ile 40. satır arasını gizleyip gösterecek bir kod yapmak istiyorum.yani R4=1 ise Rows("11:11") , R4=2 ise Rows(11:12) gösterilecek. aşağıdaki kodu 11 den 40. satıra kadar uygulamam lazım.nasıl kısaltabilirim?örnek dosyam ekte
Sub kisisayisi()
If [R4].Value = 1 Then
Rows("11:11").EntireRow.Hidden = False
Else
Rows("11:40").EntireRow.Hidden = True
End If
If [R4].Value = 2 Then
Rows("11:12").EntireRow.Hidden = False
Else
Rows("12:40").EntireRow.Hidden = True
End If
If [R4].Value = 3 Then
Rows("11:13").EntireRow.Hidden = False
Else
Rows("13:40").EntireRow.Hidden = True
End If

 

[thugangel]

Üstatlarım yardım lütfen