VBA Autofilter

Basically when i filter Column A to "Y" it will only show the cells that contain "Y", as you'd expect. However i also want any cell that has a value in it in column B to not be effected by the filter in column A.

With the aim of making my sheet look something like this:
1.png

The only thing I got is this:

Sub Button1_Click()
    For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row
        If Cells(i, 1) <> "Y" And Cells(i, 2) = "" Then Rows(i & ":" & i).EntireRow.Hidden = True
    Next i
End Sub

It works, but you will have to work with it for different situations. Cells(Rows.Count, "A").End(xlUp).Row is to get the last cell on column A with something written (in this case, 11)...

Thanks, this looks like it might be the solution i'm after, i'm going to attempt applying it to the real version of my sheet now