If Not Intersect(Rows(Target.Row), [M1]) Is Nothing Then
Application.ScreenUpdating = False
n = CInt([M1])
Rows("4:13").Hidden = True
Rows("4:" & 3 + n).Hidden = False
End If
If Not Intersect(Rows(Target.Row), [V4]) Is Nothing Then
Application.ScreenUpdating = False
n1 = CInt([V4])
Rows("16:77").Hidden = True
Rows("16:" & 15 + n1).Hidden = False
End If