VBA Autofilter multiple criteria

Hi,

thank you.
I have tried following code:

Private Sub CommandButton2_Click(a As String)
    
    For a = 1 To WorksheetFunction.CountA(Range("G:G"))
        If a = "*Error *" Then
        EntireRow.Delete
            If a = "Do not check*" Then
            EntireRow.Delete
            End If
       End If
    Next

End Sub

I am trying to add it to a button as well. Unfortunately it is not working in any kind of way.
Can anybody help with this one?
Thanks a lot