实现当激活工作表时鼠标自动定位并隐藏相关的行

实现当激活工作表时鼠标自动定位并隐藏相关的行，
当激活某工作表时鼠标自动激活第三列空格位置
按版主bengdeng的指教
在此工作表的Activate事件中加入下面的代码：
  Private Sub Worksheet_Activate()
  Dim tRan As Range
  Set tRan = Range("C1")
  If tRan.value = "" Then
      tRan.Select
  Else
      tRan.End(xlDown).Offset(1, 0).Select
  End If
  End Sub
可以实现
请问：能否同时实现自动隐藏鼠标激活位置之上第4行到第4行。（主要目的是要将已输入的数据隐藏，便于操作输入数据）
知道的共享下看看