Macro to copy/paste info in different sheets and to delete last entry

Hi!, The Addcodes macro was having an error because there are to End If, but only one If so i deleted the second one leaving it like this:

Sub AddCodes()
Dim NR As Long, strItem As String

strItem = Sheets("ProductName").Range("D4").Value
On Error Resume Next

    With Sheets("PDF")
        NR = 26 + .Range("B26:B75").SpecialCells(xlConstants)
        If NR > 75 Then
            MsgBox "You can't enter more errors", vbExclamation, "Maximum Error Entry"
            Exit Sub
            .Range("B" & NR).Value = strItem
        End If
    End With

End Sub

And it doesn't give an error but it doesn't work either... I also tried deleting the other one, and same thing...