Slette række, hvis tekst starter med N

Public Sub sletRækkerB_N()
Dim antalræk As Integer, rækNr As Integer
    antalræk = ActiveCell.SpecialCells(xlLastCell).Row
   
    For rækNr = antalræk To 1 Step -1
        If Left(Range("B" & rækNr), 1) = "N" Then
            Rows(rækNr & ":" & rækNr).Select
            Selection.Delete
        End If
    Next rækNr
End Sub

Makroen gør det den skal, men den går i stå i denne linje
  If Left(Range("B" & rækNr), 1) = "N" Then

Går ud fra det er ved en Debug-visning - så PEG på rækNr i linjen og aflæs rækkenummer.

PS: Har du placeret VBA-koden under det relevante ark?

Ja det har jeg nu og får beskeden "Type mismatch"

Hvor mange rækker der tale om?
Jeg har kørt test på uden problemer.

Prøv at ændre følgende:
Dim antalræk As Long, rækNr As Long

Det var fordi rækkerne startende med N ikke står først og ikke står i rækkefølge. Det er en blanding af tekst startende med N, tal og "I/T".
Problemet løste jeg med betinget formatering, så nu virker det perfekt.

Jeg vil også gerne slette rækker med tal, hvad skal der så stå i den række
Dim antalræk As Long, rækNr As Long?
for den virker ikke til tal.

Kan jeg kæde de to makroer sammen, så de kører på én gang?

Jeg stopper her..