Option Explicit
Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
Dim i As Integer
Dim Derlig As Integer
Dim CellVal As Integer
With ActiveSheet
.Rows.Hidden = False
Derlig = .Cells(.Rows.Count, 2).End(xlUp).Row
For i = Derlig To 6 Step -1
CellVal = .Cells(i, 1).Value
If .Cells(i, 1).Value < 1 Then .Rows(i).Hidden = True
Next i
End With
Application.ScreenUpdating = True
End Sub