Private Sub Worksheet_Activate()

    Dim sor As Integer

    For sor = 24 To 63

        If Cells(sor, 1) = 0 Then Rows(sor).EntireRow.Hidden = True

    Next

End Sub

Bocsi, nem figyeltem kellő módon az első kérdésedre.