Slette linjer hvis der står N i kolonne G

Jeg har denne VBA kode , men den stopper i linjen med "Field"

Det er meningen af den skal slette alle linjer, hvis der i kolonne G står et "N"



Sub DeleteNonBlank()
    Range("A1:G1").AutoFilter
    Field = 7,  Criterial = "=N"
    Range("A1").CurrentRegion _
        .Offset(1) _
        .SpecialCells(xlCellTypeVisible) _
        .EntireRow.Delete
    Range("A1:G1").AutoFilter
End Sub

er der nogen der kan klare den?