VB Range Code

As suggested in my post #6 put the following formula in AI4 and copy down to AI52

Formula:

=IF(OR(A4="",Q4=""),"Hide","")

Now your sheet activate event is

Private Sub Worksheet_Activate()
 Dim r As Range
 Application.ScreenUpdating = False

    Range("$AI$3:$AI$53").AutoFilter Field:=1, Criteria1:="<>"
    Set r = Range("$AI$3:$AI$53").SpecialCells(xlCellTypeVisible)
    Range("$AI$3:$AI$53").AutoFilter
    r.Rows.Hidden = True
  Application.ScreenUpdating = True

End Sub

see attached