Slette flere rækker samtidig

Hej
Jeg har denne, men jeg vil gerne slette flere ting i kolonne A, kan det gøres samtidig eller skal jeg have sådan noget VBA til hvert udsagn?
Jeg skal også slette "N", "Y" og 99999

Sub SletRaekkeA()
    SidsteRk = Range("A" & Rows.Count).End(xlUp).Row
        For I = SidsteRk To 2 Step -1
            If Range("A" & I).Value = "J" Then
                Rows(I & ":" & I).Delete Shift:=xlUp
            End If
        Next I
End Sub