VBA Autofilter

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