请问 如何在不用宏的情况下 完成如图这个功能？（急）

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Integer
For i = 1 To 6
If Target.Row <= 6 And Target.Column = 2 And _
Target.Cells(i, 2) = 0 And Cells(i, 2) <> "" Then
Rows(i).Hidden = True
End If
Next i
End Sub